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Todo jogo de ação realiza algum tipo 
de contagem de pontos ou de 

tempo, de modo a tornar a competição 
mais emocionante. Nesta lição 

você aprenderá como fazer isso com a 
ajuda de programas bem simples. 


Quase todos os jogos de computado- 
res precisam de alguma forma de mar- 
cação de pontos ou de cronometragem 
— ou ambos. Sem eles você não poderá 
saber se está se saindo bem no jogo, se 
está melhorando, ou quem é o melhor 
jogador. Além disso, são esses elemen- 
tos de medida de desempenho que dão 
graça aos jogos de computador. 

Seria possível, evidentemente, obri- 
gar alguém a sentar-se ão seu lado e fi- 
car contando os disparos que você faz. 
A melhor solução, no entanto, é progra- 
mar o computador para fazer isso por 
você. Umas poucas linhas a mais no 
programa darão cabo dessa tarefa, não 
importa a complexidade do esquema de 
marcação de pontos. 

Da mesma forma, não existe neces- 
sidade de recorrer a um cronômetro pa- 
ra marcar o tempo. Como se viu nos 
programas para o jogo de labirinto (pág. 
46 a 52), quase todos os tipos de com- 
putador têm um relógio embutido, que 
pode ser utilizado para melhorar seus jo- 
gos (a exceção é o Apple II, que precisa 
de uma placa especial). 


CAMPO MINADO 





Para que você possa ver como mon- 
tar esquemas práticos de contagem e 
cronometragem, apresentamos a seguir 
um jogo adequado a todas as máquinas, 
com exceção das compatíveis com o 
ZX81, e ao qual acrescentaremos pro- 
gressivamente todas as rotinas necessá- 
rias. Os esquemas são simples e podem 
ser colocados também em outros jogos. 

O jogo é chamado Campo Minado, 
e nele você é um comandante de tanque 
cuja missão é resgatar os pára-quedistas 
que estão pousando imprudentemente 


em um campo minado. Por onde quer 


- O JOGO DO CAMPO MINADO 


APRENDA À MONTAR UM 
PLACAR 


COMO INCORPORAR AO JOGO 


UM MEDIDOR DE TEMPO 





que passe, O tanque corre o risco de de- 
tonar uma mina escondida ao acaso pe- 
lo computador. Assim como em campo 
de batalha real, as minas são invisíveis; 
portanto, mova-se com cuidado! 

O tanque (apenas um caractere &, 
infelizmente, pois você ainda não apren- 
deu tudo sobre combinar gráficos e mo- 
vimentos em um programa BASIC) exe- 
cuta movimentos por meio das seguin- 
tes teclas: Z para a esquerda, X para a 
direita, P para cima e L para baixo. O 
âmago do programa está na rotina de 
movimentação de um caractere na tela 
estudada numa lição anterior. 

Quando você digitar e rodar esta seção 
do jogo verá que ele ainda não está com- 
pleto, pois nada acontece depois que o 
pára-quedista é resgatado. Apenas o tan- 
que continua a vagar, sem rumo, através 
da tela. O programa deve ser interrompi- 
do pressionando-se as teclas < BREAK >, 
< ESCAPE> ou <STOP>,ouvocête- 
rá que esperar até que o tanque detone 
uma mina escondida ao acaso. Nesse mo- 
mento, O jogo terminará. Mas não se 
preocupe, essa situação melhorará tão lo- 
go você acrescente as rotinas de contagem 
e cronometragem que se seguem. 


os vi q 


50 LET PO=210 


60 CLS 


70 PRINT 6256, STRINGS (32,"-") 
90 LET X=RND(256)-1 

110 IF X<>PO THEN PRINT €X,"0”"; 
ELSE GOTO 90 

120 PRINT €P0,"+t”; 
130 LET LP=PO 

140 IF PEEK(340)=247 
0=P0-1:GOTO 190 

150 IF PEEK(338)=247 
O=P0+1:GOTO 210 

160 IF PEEK(338)=251 
0O=P0-32:GOTO 220 

170 IF PEEK(342)=253 
0=P0+32:GOTO 220 

180 GOTO 140 

190 IF (LP AND 31)=0 
O=LP 

200 GoTo 220 

Z10 IF (PO AND 31)=0 THEN LET P 
O=LP 

220 IF P0>255 OR POCO THEN LET 
PO=LP:GOTO 140 

230 PRINT €LP,” "; 

240 PRINT ePo,"4+"; 

250 LET M=BND(256)-1 

270 IF M=PO THEN PRINT €P0,” ": 
PRINT €130,"BOOM!!! VOCE ACERTO 
U UMA MINA!":STOP 

310 GOTO 130 


THEN LET P 


THEN LET P 


THEN LET P 


THEN LET P 


THEN LET P 


O movimento do tanque pela tela é 
controlado pelas linhas 140 a 170, que 
verificam quais foram as teclas pressio- 


2 nadas (veja a pág. 33, se não se lembra 


de como isso é feito). A linha 220 testa 
IF PO> 255... para manter o tanque no 
alto da parte central da tela. Ora, a últi- 
ma locação de tela no alto da parte cen- 
tral do vídeo é a 255; assim o IF... impe- 
de que o tanque avance abaixo da linha 
pontilhada, desenhada pela linha 70. 

Esta última traça a linha através da 
tela, utilizando uma nova função — 
STRINGS$S.OSTRING$(G2,“—"), como 
aparece na linha 70, diz ao TRS-Color 
para desenhar um cordão (string, em in- 
glês) de 32 travessões (se você quisesse 
dez pontos de interrogação deveria uti- 
lizar STRINGS(10,''?""), e assim por 
diante). O lugar em que o pára-quedis- 
ta cai é escolhido por um número alea- 
tório na linha 90, e a linha 110 exibe o 
pára-quedas na tela se a posição esco- 
lhida já não estiver ocupada pelo tan- 
que. Se estiver, a linha 90 escolherá ou- 
tra posição. 

Finalmente, a posição da mina escon- 
dida é escolhida pela linha 250. A linha 
270 checa então se o tanque e a mina es- 
tão na mesma locação de tela. Se esti- 
verem, a mensagem de explosão será exi- 
bida, e o programa parará. 


| 
É | 
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50 LET tx=16: LET ty=5 
60 CLS 
TO. PRINT AR 41,05”==-======—= 


q e CS = e RO Em E 7 


90 LET px=INT (RND*30)+1 


100 LET py=INT (RND*10) 

110 IF px=tx AND py=ty THEN 

GoTOo 90 

120 PRINT AT py,px;"O";AT ty, 
EXU” 

130 LET txx=tx: LET tyy=ty 


140 LET aS=INKEYS 


145 IF a$="w" THEN LET ty=ty- 
1 

150 IF aS="z" THEN LET ty=Ly+ 
l 

160 IF ag$="a” THEN LET tx=tx- 
1 

170 IF a$="a” THEN LET tx=tx+ 
1 

190 IF tvyv<0O OR tvy>l0 THEN LET 
Ev=Lyy 

200 IF tx<0 OR tx>240 THEN LET 


ExX=LKXK 

230 PRINT AT tyy,tax;"” * 
240 PRINT AT ty,tx;"+" 

250 LET mx=INT (RND*30)+1 
260 LET my=INT (RND*10) 

270 IF mx=tx AND my=ty THEN 


PRINT AT mvy,mx;” ”: PRINT AT 
8,0;"BOOM!!! - Voce acertou um 
a mina!”: GOTO 330 


310 GOTO 130 


No programa do Spectrum, a tela é 
dividida ao meio pela linha 70, que im- 
prime uma série de 32 travessões ao lon- 
go do vídeo. As linhas 145 a 170 con- 


o Ro da 





trolam os movimentos do tanque. Uma 
explicação completa desse processo es- 
tá na página 31. 

As linhas 190 e 200 impedem que o 
tanque saia da área situada acima da li- 
nha (pontilhada) traçada pela linha 70, 
e impede que ele desapareça da tela. A 
posição de queda dos pára-quedistas é 
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escolhida aleatoriamente pelas linhas 90 
e 100. A linha 110 verifica se o tanque 
e um dos pára-quedistas ocupam a mes- 
ma locação de tela. Se isso ocorrer, uma 
nova posição de queda será escolhida, 
indo-se para a linha 90. As linhas 250 
e 260 escolhem um lugar para a mina. 
A linha 270 compara a posição da mina 





com a do tanque. Se eles estiverem no 
mesmo lugar, o tanque será exibido na 
tela e aparecerá uma mensagem de ex- 
plosão. Neste caso, o programa parará. 
E <, EA 
Ad 

50 LET PO=220 
60 CLS 

70 LOCATE 0,12:PRINT STRINGS(39 
df 

90 LET X=INT(RND(1)*480) 

110 IF X<>PO THEN VPOKE BASE(O0) 
+X,ASC("O”) ELSE GOTO 90 

120 VPOKE BASE (0) +PO,ASC("4") 
130 LET LP=PO 

135 LET KS=INKEYS:IF K$="" THEN 
GoTo 135 


a - = 
| 


140 IF KS=CHRS (29) THEN LET PO= 
PO-1:GOTO 190 

150 IF KS=CHRS (28) THEN LET PO= 
PO+1:GOTO 210 

160 IF K$=CHR$ (30) THEN LET POs= 
P0-40:GOTO 220 

170 IF KS=CHRS(31) THEN LET PO= 
PO+40:GOTO 220 

180 GOTO 140 

190 IF (LP/40-INT(LP/40))=0 THE 
N LET PO=LP 

200 GOTO 220 

210 IF (P0/40-INT(P0/40))=0 THE 


N LET PO=LP 

220 IF P0>479 OR POCO THEN Pos=L 
P:GOTO 130 

230 VPOKE BASE (O) +LP,ASC(” 7) 
240 VPOKE BASE(O)+PO,ASC("+H") 
250 LET M=INT(RND(1)*480) 

270 IF M=PO THEN VPOKE BASE (0)+ 
PO,ASC(” "):LOCATE 5,4:PRINT "B 
O00M! !|-Você acertou numa mina”:E 
ND 

310 GoTO 130 


O movimento do tanque pela tela é, 
como no caso anterior, controlado pe- 
las linhas 140 a 170, que verificam quais 
foram as teclas pressionadas. A linha 
220 testa IF PO > 479... a fim de restrin- 
gir o campo de ação do tanque à parte 
alta do meio do vídeo. Agora, porém, 
a última locação de tela nessa posição 
é a 479; assim, O IF... impede que ela 
avance abaixo da linha pontilhada de- 
senhada pela linha 70, 

Também como no caso anterior a 
função STRINGS é empregada pela li- 
nha 70 para traçar a linha ao longo da 
tela, O STRING$(39, “—""), como apa- 
rece na linha 70, diz simplesmente ao 
MSX para desenhar um cordão de 39 
travessões (veja na pág. anterior, abai- 
xo do programa para o TRS80€e o TRS- 
Color, como fazer para obter dez pon- 
tos de interrogação). 

O lugar em que o pára-quedista cai 
é escolhido por um número na linha 90; 
a linha 110 mostra o pára-quedas na te- 
la se a posição escolhida já não estiver 
ocupada pelo tanque. Se estiver, a linha 
90 escolherá outra posição. Não se preo- 


BE WWÚ)])]!)]B YES E = 





cupe em entender, por enquanto, o co- 
mando VPOKE BASE, na linha JI10. 
Ele serve para colocar um caractere co- 
mum (ou gráfico) em uma certa posição 
da tela, e é usado aqui por ser mais rá- 
pido que o LOCATE. 

A linha 250, escolhea posição da mina 
escondida. A linha 270 verifica se o tan- 
que e a mina estão na mesma locação da 
tela. Sendo positivo, a mensagem de ex- 
plosão é exibida, e o programa termina. 


" E EMA ch a 
50. LET TX = 20: LET 'TY = 10 
60 HOME 

















0 FOR I = 1 TO ao 

74 HTAB I: VTAB 13: PRINT "-"; 

78 NEXT I 

90 LET PX = INT ( BND (1) * 4 

O) + I 

100 LET PY = INT ( BND (1) * 

do DR 

110 IF PX < > TX AND PY < 2 

TY THEN HTAB PX: VTAB PT: PRIN 

T “0";: GOTO 120 

111 GcoTo 90 

120 HTAB TX: VTAB TY: PRINT "4 

130 LET LX = TX: LET LT = TY 

140 LET K = PEEK ( - 16384): 

POKE - 16368,0 

150 IF K = 208 THEN LET TY = 

Ty = dl 

160 IF K = 204 THEN LET TY = 

TE + 1 

170 IF K = 218 THEN LET TX = 

TX = 

175 IF K = 216 THEN LET TX = 

TK + 1 

190 IF TX < 1 ORTXÃ> 40 THEN 
LET OTA = LÃ 

200 IF TY<AORTY> lL2Z TEEN 
LET TY = LY 

230 HTAB LX: VTAB LY: PRINT " 

240 HTAB TX: VTAB TY: PRINT "4 

250 LET MX = INT ( RND (1) * 

40) + 1 

260 LET MY = INT ( RND (1) * 

ZE m I 

270 IF MX = TX AND MY = TY THE 

N HTAB MX: VTAB MY: PRINT ” ”; 
HTAB 7: VTAB 7: PRINT "BOOM!!! 

-Voce acertou uma mina”;: GOTO 

330 

310 GOTO 130 


O movimento do tanque pela tela é 
controlado pelas linhas 140 a 170, que 
checam as teclas pressionadas (lembre- 
se da explicação da pág. 33). Os coman- 
dos PEEK e POKE da linha 140 são ne- 
cessários porque o Apple não tem uma 
função em BASIC, como o INKEYS, 
que serve para fazer a varredura do te- 
clado. A fim de restringir as manobras 
do tanque, as linhas 190 e 200 testam se 
as suas coordenadas (TX e TY) não ex. 
cedem 40 e 12 posições, respectivamen- 


= yi 











te (margem direita da tela e posição de 
linha acima da linha pontilhada). 

As linhas 70 a 78 desenham uma li- 
nha pontilhada ao longo da tela. 

Um número aleatório nas linhas 90 
e 100 escolhe o lugar em que o pára- 
quedista cai; a linha 110 exibe o pára- 
quedas na tela se a posição escolhida já 
não estiver ocupada pelo tanque. Se es- 
tiver, então a linha 90 escolherá uma ou- 
tra posição. Neste caso, a posição da mi- 
na escondida é escolhida pelas linhas 250 
e 260. A linha 270 então verifica se o 
tanque e a mina estão na mesma loca- 
ção da tela. Se eles estiverem, será exi- 
bida uma mensagem de explosão, e o 
programa se deterá. 





MARQUE PONTOS 


Em jogos do tipo videogame, a con- 
tagem normalmente é aumentada quan- 
do as posições de tela de dois objetos são 
iguais. Os objetos podem ser um míssil 
e, o seu alvo, o ''come-come”” e um 
monstrinho, um tanque e um pára- 
quedista, um cavalo e o poste de chega- 
da, ou qualquer outra coisa. 

Assim, acrescente estas linhas ao seu 
programa, para ver como um mecanis- 
mo de contagem funciona na prática. 


40 LET 5=0 

280 IF X=PO THEN LET S=5+1:GOTO 
90 

330 PRINT 6295,5;" PARAQUEDISTAS 


40 LET s=0 

280 IF px=tx AND py=ty THEN 
LET s=s+1 Goto 90 
330 PRINT AT 14,8;85;" 
ISTAS" 


td 


40 LET S=0 

280 IF X=PO THEN 
90 

330 LOCATE B,16:PRINT 5;* 

uedistas” 


rã 


40 LET 5 = 0 


PARAQUED 


LET S=S+1:GOTO 


paraqg 


280 IF PX = TX AND PY = TY THE 
N LET S = 5 + 1: GOTO 90 
330 HTAB 12: VTAB 15: PRINT S; 


" PARAQUEDISTAS”; 


Você precisará substituir o STOP ou 
END na linha 270 por GOTO 330. A li- 
nha 270 deverá ficar assim, agora: 





270 IF M=PO THEN PRINT €PO,”" ”. 
PRINT € 

130,"BOOM!!! VOCE ACERTOU UMA M 
INA!":G OTO 330 


270 IF mx=-tx AND my=ty THEN 
PRINT AT my,mx;"!": PRINT AT 8 
,3:;"BOOM!!! - VOCE ACERTOU UMA 
MINA!”: GOTO 310 


Ml 


270 IF M=PO THEN VPOKE BASE (0)+ 
PO,ASC(” "):LOCATE 5,4:PRINT "B 
00M! i-Você acertou numa mina”:G 
oTO 330 


270 JF MX = TX AND MY = TY THE 
N HTAB MX: VTAB MY: PRINT " *; 
HTAB 7: VTAB 7: PRINT "BOOM! ! 


“VOCE ACERTOU NUMA MINA” ;: GOTO 
330 


A linha 280 é a mais importante. Ela 
checa se o tanque e o pára-quedista es- 
tão na mesma locação da tela. Se esti- 
verem, então o placar será incrementa- 
do de 1 ponto. 

A linha 40 volta o placar para zero, 
antes de o jogo começar, e a linha 330 
exibe a contagem. Ao modificar-se o fi- 
nal da linha 270, o computador exibe a 
contagem depois que a mina tiver sido 
detonada. 

O jogo funciona assim: o jogador re- 
cebe continuamente pára-quedistas pa- 
ra resgatar. Quando um é resgatado, ou- 
tro pára-quedista cai do céu. 

O jogo termina quando o tanque em 
movimento passa sobre a mina, provo- 
cando uma explosão. 


| * RECORDES Ê 


Acrescentar um dispositivo de regis- 
tro do recorde de pontos no jogo não 
é dificil. Tudo o que você precisa é de 
uma variável para armazenar o recorde, 
e algum modo de atualizá-la assim que 
este for quebrado. Fora isso, é necessá- 
ria ainda uma rotina de exibição do re- 
corde. Estas são as linhas que você de- 
ve acrescentar para aumentar a capaci- 
dade de registrar e exibir recordes no jo- 
go '“'Campo Minado”: 


30 LET HS=0 
350 IF 5S>HS THEN LET H5=5 
370 PRINT 6424," RECORDE=" ; HS; 


a cs 


30 LET hs=0 
350 IF s>ha THEN LET hs=s 
370 PRINT AT 18,8;"RECORDE=";hs 


yu 


30 LET HS=0 

350 IF 5>H5 THEN LET H5=5 

370 LOCATE 12,20:PRINT "Recorde 
E "-HS 


Lob] 


30 LET HS = 0 

350 IF S > HS THEN LET HS = S 
370 HTAB 12: VTAB 20: PRINT "R 
ecorde=" : HS; 


Primeiro o programa deve introdu- 
zir a variável contendo o recorde com 
um valor o mais baixo possível. Assim, 
a linha 30 iguala HS a zero. Quando o 
jogo termina, a linha 350 compara o úl- 
timo escore (S) com o recorde (HS). Se 
o escore for maior do que o recorde, en- 
tão HS será atualizada, recebendo o va- 
lor em S. Finalmente, a linha 370 exibe 
o recorde na tela. 

Pode-se pensar que essas linhas serão 
suficientes para incorporar sempre no- 
vos recordes ao jogo. Infelizmente isso 
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não é verdade. Sempre que o programa 
é rodado, o computador zera automa- 
ticamente o valor de HS registrado no 
jogo anterior, assim como os valores de 
todas as outras variáveis. Para manter 
o valor de HS entre uma partida e ou- 
tra do jogo, você precisa acrescentar li- 
nhas de programa para perguntar ao jo- 
gador se ele quer Jogar outra vez, como 
as que foram usadas em jogos ante- 
rRores. 


390 FOR F=1 TO 1000:NEXT EF 
400 PRINT 6130 


410 PRINT 6135," OUTRA VEZ(S/N)? 


420 LET KS=INKEY:IF KS$="" THEN 
GOTO 420 

430 IF K$="S” THEN GOTO 40 

440 IF KS$="N” THEN END 

450 GOTO 420 


390 PAUSE 100 

400 PRINT AT B,3;TAB 31 

410 PRINT AT 8,7;"Quer jogar d 
e novo (5/N)?7" 

420 LET aS=INKEYS 

430 IF a$="s" THEN GOTO 40 
440 IF a$="n” THEN STOP 

450 GOTO 420 


Dt 


390 FOR F=1 TO 1000:NEXT F 

400 LOCATE 0,4:PRINT STRINGS (39 
SR NOT) 

410 PRINT TAB(10); 
S/N)" 

420 LET KS$=INKEYS:IF K$="" THEN 
Goto 420 

430 IF K$="S" OR K5$="s” THEN GO 
TO 40 ; 

440 IF K$="N” OR K$="n" THEN EN 
D 

450 coTo 420 


[1 


"Qutra vez? ( 


390 FOR F = 1 TO 1000: NEXT F 
400 FOR I =1TOda0: HTABI:V 
TAB 7: PRINT ” ";: NEXT 1 

410 HTAB 11: VTAB B: PRINT "Ou 
tra vez? (S/N)”"; 

420 GET AS 

430 IF AS = "S" THEN GOTO 40 


440 IF AS = "Nº THEN END 
450 GoTo 420 


Isto é o que a linha extra faz: 

Cria-se um pequeno retardo de tem- 
po, introduzido pelo laço FOR...NEXT 
na linha 390, nos programas para todos 
os computadores, exceto para o Spec- 
trum, que usa o comando PAUSE. A li- 
nha 400 limpa uma parte da tela, de mo- 
do a prepará-la para que a mensagem 





“MAIS UMA VEZ? (S/N) seja im- 
pressa pela linha 410, 

A rotina que pergunta ao jogador se 
quer jogar de novo e colhe a sua respos- 
ta está nas linhas 410 a 450 (a linha 430 
reiniciará o programa na linha 40 se S 
for pressionado, e a linha 440 parará o 
programa se N for pressionado). A li- 
nha 450 assegura que qualquer outra te- 
cla será ignorada. Como agora não exis- 
te necessidade de digitar RUN cada vez 
que você desejar jogar de novo, o valor 
de HS é preservado. 


COMO FAZER A CRONOMETRAGEM 





Do jeito que está, o jogo depende 
muito da sorte — o jogador simples- 
mente continua andando com o tanque, 
até encontrar uma mina escondida, 

Podemos, entretanto, introduzir no- 
vos elementos no jogo, transformando- 
o, Se quisermos, em uma corrida con- 
tra o relógio. Um desses elementos po- 
deria ser, por exemplo, um dispositivo 
interno para marcar o tempo gasto em 
resgatar dez pára-quedistas. 


BO TIMER=O 

290 IF S<1l0 AND X=PO THEN GOTO 
90 

300 IF S=10 THEN GOTO 320 

320 LET T=TIMER 

330 PRINT €295,5;" PARAQUEDISTAS 


340 IF S=10 THEN PRINT €372/,"EM 


":;T/50;" SEGUNDOS” 
LU LET L=U 


BO POKE 236/2,0: POKE 23673,0 
290 IF s<l0 AND px=tx AND pys=t 
Y THEN GOTO 90 
300 IF s=10 THEN GOTO 320 
320 LET t=PEEK 236/2+256*PEEK 
23673 


340 IF s=1L0 THEN PRINT AT 16, 


B;"EM ";t/50;" SEGUNDOS” 
80 TIME=O 


290 IF S<10 AND X=PO THEN GOTO 
90 

300 IF S=10 THEN GOTO 320 

320 LET T=TIME 

340 IF S=10 THEN LOCATE 10,1B:P 
RINT "em ";T/50;" segundos” 


O relógio existente em cada um dos 
tipos de micros acima corre durante to- 
do o tempo em que o computador esti- 
ver ligado. 

Para iniciar a cronometragem do jo- 
go, você precisa apenas zerar uma va- 








riável de tempo. A linha que coloca em 
zero o cronômetro é a linha 80 — você 
notará que para zerar o cronômetro do 
TRS-Color e do MSX basta fazer TI- 
MER = O. No Spectrum é mais com- 
plicado: a linha do programa zera duas 
locações específicas na memória de tra- 
balho do micro, através de POKE 23 
672,0 e POKE 23 673,0. 

O relógio é “parado” pela linha 320. 
Na verdade, ele não se detém; assim, vo- 
cê simplesmente instrui a máquina a 
“lembrar-se'' do valor de tempo mar- 
cado em um determinado momento — 
quando dois objetos coincidem na tela, 
por exemplo. 

Nesses programas, a variável que 
contém a leitura do relógio é chamada 
de T— no MSX e no TRS-Color, isso 
é feito com a linha LET T = TIMER, 
e no Spectrum, com LET T = PEEK 
23672 + 256*PEEK 23673. 

O comando PEEK, como aprendere- 
mos em uma lição posterior, “olha” os 
valores numéricos contidos nas mesmas 
locações de memória zeradas no início 
do programa. 

A locação 23672, como qualquer lo- 
cação de memória em um micro de 8 
bits, pode conter números inteiros en- 
tre 0 e 255. A locação 23673 é incremen- 
tada de 1, toda vez que esse número for 
excedido na locação 23672. 

Assim, para calcular o valor total do 
tempo em que o cronômetro do Spec- 


“ trum esteve correndo, você deve multi- 





plicar o valor da locação 23673 por 256 
e acrescentar o valor armazenado na lo- 
cação 23672. Esta é a razão da expres- 
são numérica na linha 90, na versão pa- 
ra o Spectrum. 

O relógio deve ser parado quando o 
jogador tiver resgatado dez pára- 
quedistas; assim, a linha 300 checa se es- 
te valor foi atingido e salta para a linha 
320, que “pára” o cronômetro. 

Se o total de resgatados for menor 
que dez, a linha 290 manda outro pá- 
ra-quedista para ser salvo pelo jogador. 

A linha 340 só exibirá o tempo total 
de jogo se os dez pára-quedistas tiverem 
sido recuperados. A leitura do cronôme- 
tro é dividida por 50 no programa. Ás- 
sim, o tempo exibido será expresso, 
aproximadamente, em segundos. 


Lob] 


BO LET T = O 

290 TF 5 < O AND PX = TX AND P 
Y = TY THEN GOTO 90 

300 IF S = 10 THEN GOTO 330 
340 IF S = 10 THEN HTAB 12: V 
TAR 16: PRINT "em ";T / 6;" seg 
undos”; 


A contagem de tempo na versão do 
programa para os microcomputadores 
da linha Apple é feita de forma inteira- 
mente diferente das outras máquinas, 
pois eles não têm relógio interno. 

Neste caso, definimos uma variável 
denominada TIME, que conterá o va- 


lor cronometrado, e uma variável T, que 
é incrementada de | a cada ciclo de var- 
redura do teclado. Este é um truque 
muito fácil de ser implementado, e que 
serve para qualquer computador que 
não tenha relógio interno. 

A variável relógio é zerada na linha 
80 e recebe o valor do tempo gasto na 
linha 320. Para calcular o valor do tem- 
po em segundos, divide-se o conteúdo 
de T por 6. 


“RECORDE DE TEMPO 





Da mesma forma que adicionamos o 
registro de recordes de pontos ao pro- 
grama anterior, poderiamos agora 
acrescentar um registro do recorde de 
tempo (no caso, o menor tempo gasto 
para salvar dez pára-quedistas). O prin- 
cípio geral de registro de recordes de 
tempo pode ser aplicado em muitos ou- 
tros Jogos. 

Estas são as linhas a serem acrescen- 
tadas ao programa: 


20 LET LT=999999 

360 IF T<LT AND S=10 THEN LET L 
TT 

380 PRINT €452,"MENOR TEMPO=";L 
T/50;" SEGUNDOS” 


20 LET 1t=999999 
360 IF t<lt AND s=10 THEN LET 
1lt=t 

380 PRINT AT 21,4;"MENOR TEMPO 
=": 1t/50;" SEGUNDOS” 


pt 


20 LET LT=999999! 
360 IF T<LT AND S=10 THEN LET L 


T=T 
380 LOCATE 6, 22:PRINT "Melhor L 
empo: ";LT/50;" segundos” 


eá ] 


20 LET LT = 99999 

360 IF S = 10 AND T < ET THEN 
EPs 

380 HTAB 12: 
LT) ds 


VTAB 21: PRINT "e 


segundos”; 


Inicialmente, devemos inicializar a 
variável usada para armazenar o menor 
tempo (LT). Esse valor, ao contrário do 
usado para introduzir a variável de re- 
corde de pontos, deve ser bem alto, no 
começo. A linha 20, incorporada ao pro- 
grama, iguala a variável LT a 999999, 

A linha 360 compara o último tem- 











po de jogo registrado com o menor tem- 
po, armazenado em LT. Se aquele for 
menor ainda do que o último recorde de 
tempo, passará a ser o novo recorde, 
transferindo-se o seu valor para LT. 

Finalmente, a linha 380 exibe o recor- 
de de tempo, em segundos. O valor da 
variável LT é dividido por 50 ou'por 100, 
para que isto se torne possível. 


TEMPO DE REAÇÃO 


Até agora, você viu como medir o 
tempo com auxílio do relógio interno do 
computador, dentro de um programa 
que checa, por exemplo, as posições de 
dois objetos na tela. 

Outra aplicação interessante para esse 
modo de aferição de tempo é utilizar o 
teclado para medir a velocidade de rea- 
ção do jogador a algum tipo de ação 
contrária. 

Você já sabe como utilizar a função 
INKEYS (em caso de duvida, veja na 
pág. 28). Ela pode servir não só para 
controlar a movimentação de objetos na 
tela, mas também para iniciar e parar 
contagens de tempo. 

Eis aqui um jogo da variedade “'rá- 
pido-no-gatilho”, que ilustra muito bem 
esse tipo de aplicação. O programa mos- 
tra na tela: “SAQUE!”, e o jogador 
deve reagir o mais rapidamente que 
puder, pressionando qualquer tecla no 
teclado. 


20 CLS 

30 LET N=RND (900) 

40 FOR F=0 TO N 

50 NEXT F 

60 PRINT 8269," SAQUE! !” 

70 TIMER=O 

BO IF INKEYS$=""THEN GOTO BO 

90 LET T=TIMER 

100 PRINT 6269," BANG!!!” 

110 FOR F=1 TO 300 

120 NEXT F 

130 LET M=RND(25) 

140 IF T<M THEN PRINT 6264," VOC 
E SOBREVIVEU” 

150 IF T>M THEN PRINT 8266,"VOC 
E ESTA MORTO” 

160 IF T=M THEN PRINT €264,"VOC 
ES ESTAO AMBOS MORTOS” 


20 CLS 

30 LET N=INT (RND*400)+1 

40 PAUSE n 

60 PRINT AT 11,14;"SAQUE!!” 
70 POKE 2367/2,0: POKE 236/3,0 
80 IF INKEYS="" THEN GOTO 80 
90 LET T=PEEK 29672+256*PEEK 
23673 





100 PRINT AT 11,14;"BANG!!” 
110 PAUSE 50 

130 LET m=INT (RND*35)+1 

140 IF t<m THEN PRINT AT 11,9 
: "VOCE SOBREVIVEU” 

150 IF t>m THEN PRINT AT 11,9 
' "VOCE ESTA MORTO” 

160 IF t=m THEN PRINT AT 11,9 


: "VOCES ESTAO AMBOS MORTOS” 


20 CLS 
30 LET N=RND(1)*900 
40 FOR F=1 TON 

50 NEXT F 

60 LOCATE 17,11:PRINT 
70 TIME=O 

BO IF INKEYS="" THEN BO 

90 LET T=TIME/6 

LOCATE 17,11:PRINT "BANG!!” 
FOR F=1l TO 300 

120 NEXT F 

| LET M=RND(1)*25 

IF T<M THEN LOCATE 13,11:PR 
"Você sobreviveu” 

IF T>M THEN LOCATE 13,11:PR 
"Você está morto” 

160 IF T=M THEN LOCATE 13,11:PR 
"Ambos morreram” 


“SAQUE!” 


HOME 

LET N = RND (1) * 2000 

FOR F = 1 TON 

NEXT F 

HTAB 17: VTAB 13: PRINT "SA 
QUE! !” 
70 LET T = O 
BO X = PEEK ( - 16354): PORKE 
- 16368,0 
81 IF X > 127 THEN GOTO 100 
B5 LET T= T+ 1 
90 coTo 80 
100 HTAB 17: VTAB 13: PRINT "B 
ANG! IT 
110 FOR F = 1 TO 1000 
120 NEXT F 
130 LET M = RND (1) * 20 
140 IF T<M THEN HTABIZ:VT 
AB 13: PRINT "VOCE SOBREVIVEU” 
150 IF T>MTHEN HTABÃIZ: VT 
AB 13: PRINT "VOCE ESTA MORTO” 
160 IF T=M THEN RHRTABÃMIZ: VT 
AB 13: PRINT "AMBOS MORRERAM ” 


O programa é muito simples. Após 
a linha 20 ter limpado a tela, uma pau- 
sa aleatória é introduzida pelas linhas 30 
a 50. A linha 60 exibe “SAQUE!” , eo 
cronômetro é acionado imediatamente 
pela linha 70. A linha 80 faz com que 
a máquina espere até que uma tecla se- 
ja pressionada. A linha é exatamente 
igual à que foi utilizada nos programas 
de jogos com controle pelo teclado (ve- 
ja pág. 28). 

Assim que qualquer tecla tenha sido 
pressionada, O programa continua pa- 
ra a linha 90, que pára efetivamente o 


Existe algum limite máximo para o pe- 
riodo de medida de tempo? 


Sim, existe — embora normalmen- | 
te seja tão longo que, na prática, não | 
faz diferença. O relógio interno da | 
maioria dos computadores domésticos | 


corre a velocidades semelhantes. O fa- 
tor limitante, portanto, é o número má- 
ximo de impulsos de relógio que o com- 
putador pode armazenar. Às linhas 
TRS-Color e MSX utilizam dois bytes; 
por isso podem contar até 65 535 im- 
pulsos de relógio, um a cada 1/50 de 
segundo. Isso dá uma capacidade má- 
xima de temporização de cerca de 22 


| minutos, Já os micros da linha Spec- 

| trum usam 3 bytes, o que lhes dá cer- 

| ca de quatro dias de medida continua 
de tempo! 


Como funciona o cronômetro interno 
de um microcomputador? 

Todo microcomputador tem um dis- 

| positivo interno para sincronização das 

atividades da Unidade Central de Pro- 

| cessamento, que é chamado de relógio 

| ou clock, Esse relógio interno tem por 

função gerar pulsos elétricos repetidos 


a uma frequência constante para cada | 


micro: essa frequência é chamada de 
velocidade de relógio, e seu valor va- | 

ria conforme a marca do computador. 

Por exemplo, o Apple Il tem relógio 

de | MHz (megahertz, ou seja, um mi- 

lhão de “batidas” de relógio por segun- 

do); o TRS-BO tem 2,7 MHz, e assim 

| por diante. Mas esse temporizador in- 

terno não pode ser aproveitado para 

medir o tempo como um verdadeiro 





cronômetro, armazenando o seu valor 
naquele momento na variável T. A linha 
100 exibe “BANG!!”. 

Existe uma pausa introduzida pelas 
linhas 110 e 120 (a linha 110 somente no 
Spectrum) antes que um novo retardo 
inicial de tempo seja sorteado pelo pro- 
grama. Isto é feito pela linha 130 do 
programa. 

Em seguida, o computador sorteia 
uma variável aleatória M, que conterá 
o tempo levado pelo computador para 
“sacar” sua arma. As linhas 140 a 160 
comparam os valores T (do jogador) e 
M (da máquina) e declaram quem foi o 
vencedor do duelo (ou se ambos os due- 
listas morreram!). 











As pessoas que nunca utilizaram um 
computador pessoal sempre perguntam 
que tipo de aplicações domésticas ele po- 
deria ter. As respostas dadas, porém, ra- 
ramente são convincentes. 

Neste artigo apresentamos um pro- 
grama que pode ser útil para muitas pes- 
soas. Ele é um programa de banco de 
dados, ou seja, de organização e recu- 
peração de qualquer tipo de informação 
que possa ser fichada. E um sistema de 
arquivamento tão flexivel que pode en- 
contrar dezenas de aplicações no seu 
dia-a-dia. Ele é muito útil, por exemplo, 
para armazenar os nomes e os endere- 
ços de amigos ou membros de um clu- 
be, ou tomar notas dos aniversários da 
família e dos amigos, ou armazenar de- 
talhes sobre suas coleções de moedas, 
borboletas, discos ou receitas, ou até 
mesmo organizar melhor a sua crescen- 
te coleção de jogos de computador. 

O único limite para o que se pode fa- 
zer com esse programa está no tamanho 
da memória RAM do seu micro. Na 
maioria das vezes, O mínimo necessário 
para aplicações práticas é uma máqui- 
na com 32K. 

Seja como for, é necessário lembrar 
sempre o seguinte: como as memórias 
dos computadores domésticos são pe- 
quenas, em comparação com as das má- 
quinas profissionais, quanto menos vo- 
lumosa a informação a ser mantida pe- 
lo computador, melhor. 





O MENU PRINCIPAL — 


Assim que você rodar o programa pe- 
la primeira vez, através do comando 
RUN, o menu principal será imediata- 
mente impresso na tela. Ele consiste nu- 
ma lista de coisas que se pode fazer com 
o arquivo, como “entrar um registro” 
por exemplo, ou “pesquisar o arquivo”. 


j ABRA SEU ARQUIVO 


Os computadores necessitam de de- 
talhes precisos do que se quer, antes de 
qualquer operação. Para abrir um no- 
vo arquivo é necessário primeiro dizer 
'ao computador o número de registros 


é que se quer e a extensão máxima que ca- 


D 


da registro pode ter. “ABRIR UM AR- 
QUIVO” é a opção 1 do menu princi- 
pal; assim, para selecioná-la, você deve 
pressionar a tecla |: as palavras “'VO- 
CÊ TEM CERTEZA?" aparecerão na 
tela. Essa reação da máquina é uma pre- 


caução contra o pressionamento aciden- & 


tal da tecla 1, pois chamar a rotina dé 
“ABRIR UM ARQUIVO” quando 6 
sistema de arquivamento já estiver ar- 
mazenando dados pode comprometer 
todo o trabalho. 

Se você tiver certeza de que quer abrir 
um novo arquivo, pressione S. Mas;-se, 
o arquivo já estiver armazenandg dados 

e você não deseja apagá-los, pressione 
qualquer outra tecla, e o progrfama re- 
tornará ao menu principal. Ê 


O TAMANHO DOS CAMPOS 





Uma vez que você tenha pressiôna- 
do o S para continuar, o computador 
perguntará quantos campos você quer. 
“Campos” são os itens de informação 
que você quer armazenados em cada re- 
gistro. Por exemplo, se você quer regis- 
trar dados sobre os seus amigos, pode- 
riam ser definidos os seguintes campos: 
nome, endereço, cidade e número do te- 
lefone — quatro ao todo. 

Este programa só permite um núme- 
ro máximo de oito campos para um re- 
gistro individual; do contrário, ele não 
poderia exibi-los, todos, na tela ao mes- 
mo tempo. Uma vez fornecido o núme- 
ro de campos a pergunta seguinte do 
computador será: “Qual o nome do 
campo 17'*. (No exemplo acima, a res- 
posta poderia ser NOME.) 

A seguir, O programa pede a exten- 
são do primeiro campo, isto é, o núme- 
ro máximo de caracteres que ele pode 
conter, 

A extensão máxima para qualquer 
campo permitida no programa é de de- 
zenove caracteres. Isso significa que, se 
a informação que se quer arquivar — 
um endereço, por exemplo — não cou- 
ber nessa extensão, é preciso dividir o 
campo em duas ou mais partes. No ca- 
so de um endereço isso pode ser feito 
por meio da definição de campos sepa- 
rados para a rua, número da casa, ci- 
dade, código postal, etc. 


Seu caderninho de endereços está uma 
bagunça? Sua coleção de discos 

tem mais problemas do que discos? Eis 
aqui um programa que o ajudará 

a colocar ordem nesse caos. 








De posse da informação sobre o pri- 
meiro campo, o computador fará a mes- 
ma pergunta sobre o segundo campo, o 
terceiro, e assim por diante. Obviamen- 
te, quanto menores forem os nomes dos 
campos e os números dos caracteres em 
cada campo, mais registros poderão ser 
retidos no arquivo. 

Isto feito, o computador calculará 
para quantos registros ele tem espaço na 
memória. Esse número será exibido na 
tela. No programa para o TK-90X, vo- 
cê deve especificar quantos registros 
quer armazenar, evitando que o compu- 
tador gaste tempo excessivo gravando 
ou lendo longos arquivos da fita. 





ar 





E MEMÓRIA DISPONÍVEL 
— ESTABELEÇA UM NOVO ARQUIVO 





— MANTENHA EM ORDEM AS 

E SUAS COLEÇÕES 
— UM PROGRAMA PRÁTICO DE 
ARQUIVAMENTO DISPONÍVEL 
— UTILIZE EFICIENTEMENTE A 








o 


COMO ENTRAR UM REGISTRO 





Terminado o processo de criação de 
um novo arquivo, O programa trará de 
volta o menu principal, onde você deve 
selecionar a opção 2 (tecla 2), para ini- 
ciar a entrada da informação em seus re- 
gistros. 

No alto da tela, o computador man- 
terá uma contagem dos registros que vo- 
cê já entrou, juntamente com o espaço 
total disponível na memória. Essa linha 
de informação dirá, por exemplo: “'Vo- 
cê utilizou 10 dos 100 registros” 

Logo abaixo disso; na tela, serão exi- 


bidos os nomes dos campos. O cursor 
aparecerá na última linha do vídeo, de 
tal modo que tudo que você escrever pe- 
lo teclado será registrado no campo exi- 
bido. Lembre-se de manter a informa- 
ção digitada tão curta quanto possível 
e dentro da extensão máxima de carac- 
teres que você estabeleceu para cada 
campo. 

Quando você pressionar a tecla < EN- 
TER > ou <RETURN>, ainformação 
digitada será impressa próxima ao nome 
do campo. A linha inferior da tela será 
limpa e ficará pronta para o próximo 
campo. Esse procedimento começa com 
o primeiro campo no alto da tela e pros- 


— REVEJA SEU ARQUIVO 


[5] 
E — COMO ARMAZENARE 
| REM 


RECUPERAR INFORMAÇÕES 


segue por toda a tela cada vez que você 
digita uma informação e pressiona 
< ENTER> ou < RETURN>. Quan- 
do você tiver entrado o último campo do 
registro, o computador irá para o pró- 
ximo registro a ser entrado. Se você pres- 
sionar a tecla <ENTER> ou <RE- 
TURN > novamente, antes de começar 
a digitar o primeiro campo, o computa- 
dor trará o menu principal de volta. 


EXAMINE OS REGISTROS 





Para examinar os registros que você 


entrou, selecione a opção número 3 do 


mentw principal, “VER REGISTROS”, 
pressiómiândo a tecla 3. O primeiro re- 
gistro SETÁ então exibido na tela — não 
necessariamente o primeiro que você in- 
troduzinil, Mas o primeiro de acordo com 
o próprio método de seleção do 
programa. 

Os metodos de arranjo dos compu- 
fadores variam muito pouco. Mas, de 
modo geral, eles selecionam os registros 
em ordem alfabética através do primei- 
ro campo, o qual, em muitos casos, se- 
rá “NOME”. Para fazer Isso, O com- 
putador examina a primeira letra do pri- 
meiro campo de todos os registros e os 
ordena alfabeticamente. Se mais de um 
registro tiver a mesma inicial, ele os or- 
dena em função da segunda letra, e as- 
sim por diante. 

Quando o primeiro campo contiver 
algarismos, o computador selecionará 
sempre um deles antes de qualquer le- 
tra; mas prosseguirá com o mesmo mé- 
todo de ordenação, dígito por dígito, 
quando estiver decidindo entre núme- 
ros, além de olhar para o número como 
um todo. Em outras palavras, se você 
colocar os números de 1 a 100 no pri- 
meiro campo, por exemplo, o compu- 
tador ordenará em primeiro lugar os nú- 
meros 1, 10, 11, 12, 13, 14, 15, 16, 17, 
18, 19 e 10X) antes de movimentar-se pa- 
rao 2,20, 21, etc. A maneira de se con- 
tornar esse problema é evitar o empre- 
go de números no primeiro campo ou 
entrar os números com zeros à esquer- 
da, como, por exemplo: 001, 002 ...010, 
011 ... até 100. 

Quando, por outro lado, se utiliza 
uma mistura de letras maiúsculas e mi- 





núsculas, o computador escolhe primei- 


ro as maiúsculas. Assim, “ABC Limi-. 


tada” poeta ser antes de “Aarão e 
-D 2 DE E as RE O ar 






ing as informações Edass em ecra 
maiúsculas, para resolver o problema. 


Se o seu computador aceitar caracteres 


acentuados, você poderá ter problemas 
na ordenação, pois na codificação bra- 
sileira para os caracteres (adotada, por 
exemplo, para os micros da linha MSX) 
as letras acentuadas aparecem depois 
das minúsculas, na ordem alfabética. 
Quando você pedir para ver os regis- 
tros, aparecerão as segui 


arg 


ps o RA 






PROSSEGUE 


e. 
escritas na parte inferior da tela. Se vo- 
cê pressionar a tecla P, o computador 
exibirá o registro seguinte; se você pres- 
sionar o R várias vezes, ele se movimen- 
tará rapidamente através de todo o ar- 
quivo, registro por dé paga 
Uma pressão na tecla psp Ea Z d 






gistro, para a frente e para tr ás 
cla M provoca o retorno ao menu 
cipal, qualquer que seja o pont 
você estiver no arquivo, 
Embaixo da primeira linha de opções 
aparecerá uma segunda com as seguin- 
tes alternativas: 





CORRIGE APAGA MPR 





dos nos registros às dadeu arqui 
rão armazenados nam tóri: 
(memória RAM) do com ador, den- 
tro do limite cu de re- 
gistros, calculado pelo programa. É ne- 


cessário, portanto, arm dr Esse aT- 
Ica, se você quiser 


quivo em fita magnétic 
ra: Sprputtio caso contrário, 
oda a informação digitada. 








modificar pe ntar dados, consul- 
tar ou listar o arquivo, poderá carregar 
de volta o arquivo para a memória 












RAM do PORAPAEACOR; | lendo- o em | fita. 


2 APLICAÇÕES 2 





dados. A única exceção é a versão para 
os micros da linha Sinclair, que gravam 


“O programa juntamente com os dados 


contidos em memória. 

Quando você quiser salvar o seu ar- 
quivo nos micros das linhas TRS-Color 
ou MSX, pressione a tecla 5 para sele- 
cionar a opção de armazenamento no 
menu principal, e o computador lhe pe- 
dirá que dê um nome qualquer ao arqui- 
vo. Uma vez que você tenha teclado o 
nome.do arquivo e 
TURN> ou <ENTER>, o computa- 
dor pedirá que você posicione. 0 grava- 
dor para a gravação , apertando as teclas 
RECORD e PL. 





“mado. O tempo de gravação depende do 


“número de registros a ser armazenado. 


Nos micros da linha Sinclair, a fun- 


bressionado < RE= | 
“computador em dois estágios. 
mente, é necessário carregar o progra- 


Y, e pressionando =. 
» <ENTER> em a À Enquanto gra- 
à va, o computador mantém você infor- 


ção de gravação é ativada de forma di- 
ferente da anterior. Neste caso, selecio- 
ne primeiro a opção 7 (SAIDA) no me- 
nu principal. Em seguida, usando o co- 
mando SAVE normal, digitado direta- 
mente pelo teclado, acione o gravador e 
grave o programa, dando-lhe um nome 
adequado. Os dados serão gravados con- 
juntamente, conforme já foi explicado. 

Posteriormente, quando quiser con- 
sultar o arquivo, você deve (nos micros 
das linhas citadas acima) carregar o 
Inicial- 


ma, utilizando o comando normal 
LOAD (ou CLOAD) de sua máquina. 

Em seguida, deve-se mandar executar o 
programa, acionando o comando RUN, 

e selecionar a opção 6 no menu princi- 
pal, “CARREGAR ARQUIVO". O 
computador pedirá então o nome do ar- 














quivo desejado. Quando você tiver te- 
clado o nome do arquivo e pressionado 
<RETURN > ou <ENTER>, a: 

rdenará: “POSICION A 
DOR E é PRESSIONE <] 


ter oi GOLE 0) GRAV DX ) 
POSIÇÃO PLAY E PRESS 
<ENTER>"”. 

Assim que a fita cassete começar a 
rodar, o computador a examinará até 
encontrar o arquivo que você deseja, O 
qual será carregado (o que poderá de- 
morar algum tempo). Concluída a ope- 
ração, ele dirá que o arquivo foi carre- 
gado corretamente. Se o arquivo que vo- 
cê quiser não estiver na fita, o compu- 
tador testará todos os arquivos que en- 
contrar nela, até o final. De qualquer 
maneira, no final, o programa fará re- 
tornar o menu principal. Só então você 
poderá selecionar a opção 6 novamente 
e procurar outro arquivo para carregar. 

Nos micros da linha Sinclair, como é 
o caso do TK-90X, os dados e o progra- 
ma principal são carregados juntos. Uma 
vez que tiver carregado o primeiro arqui- 
vo utilizando o comando LOAD padrão, 
poderá carregar outros arquivos por 
meio da opção 6 no menu principal. 

A versão do programa para compu- 
tadores da linha Apple também tem fun- 
ções de menu iguais às dos micros já 
considerados. A única diferença é que 
o programa utiliza arquivos em disque- 
te, para armazenamento ce recuperação 
de dados, pois não funciona satisfato- 
riamente com fita cassete. 

Os programas listados contêm gran- 
des intervalos em seus números de linhas 
— da linha 2000 à linha 6000. 

Todavia, isso foi feito intencional- 
mente. Digite os programas exatamen- 
te como estão, pois as linhas que faltam 
serão utilizadas para incorporar as par- 
tes responsáveis pelas funções de modi- 
ficação, apagamento, impressão e cru- 
zamento de informações dos registros. 

Os detalhes dessas opções estão no 
próximo artigo desta série. 


20 PCLEARI:CLEAR 11000:RS$="P R 
MCAI” : BS=CHR$ (128) 
30 CLS: PRINTE32, STRINGS (8,B3);” 










MENU” ; STRINGS (3,” ");"PRINCIPAL 
"STRINGS (8,BS) 

40 PRINT 8164, 

50 mo 4 
50 PRINT 6196," 2-ENTRAR COM 
REGISTRO” 


60 PRINT €228,"3-VER REGISTROS 
70 PRINT 6260,"4-0PCAO DE PROCU 
BA" 


BO PRINT €292,"5-SALVAR ARQUIVO 







; 
ds 2150 
1-ABRIR UM mau FOR N=l TO A:XS=AS (CN) : 





EaD ivT 6235,” ARQUIVO 
o ma TÊOR G=1 TO 5: SCREEN O 

: FOR F=1 TO 500:NEXT 
2190 SCREEN 0,0:FOR F=l TO 500: 
NEXT F,G: RETURN 


vor 
100 PRINT €356,"7-SAIDA 
110 PREr pro , "SELECIONE OF 




























120 INS=INKEYS: IF IN$<"1 3000 RETURN:REM LINHA TEMPORARI 
>"7” THEN 120 é ES A 
130 IF IN$ <>"1” AND IN$<>"6" A 4000 RETURN:REM LINHA TEMPORARI 
ND R=0 AND INS<>"7"THEN 120. A 


140 SOUND 30, +:CL8: Aga — 5000 RETURN:REM LINHA TEMPORARI 
D=]1 
IF NR<1 THEN 6170 


- GOSUB 8500 


5000,7000,8000,9000 
160 GOTO 30 
1000 PRINT €41, 

O”: PRINT 6231, 
(S/N) ?" 

1010 INS$=INKEY$S:IF INS<>"S” AND 
INS<>"N” THEN 1010 

1020 IF INS$<>"S"THEN RETURN 
1030 IF R>0 THEN RUN 9200 

1040 CLS:PRINT 641,"ABRIR UM AR 6060 

QUIVO”  6100,61 
1050 PRINT 6385, "NUMERO DE CAMP 6070 GOT SR 

OS (1-8) ";: INPUT A: A-ABS CrP CARRO Pe GOTO 6140 
) ! | a! 

1060 


"ABRIR UM ARQUIV 


“pé: 


"VOCE TEM CERTEZA 


IT 8451," pROSSEGUE r 
mENU  cORRIGE 


aPAGA 





IF A>B OR ASil THEN 1050 


1070 DIM A(A),NS(A) 1008 bord 6020 
1080 PRINT 6384,"":PRINT 696,"" 2000 -goTo 6010 
:'FOR N=1 TO A 3 10000:GOTO 6030 
1090 PRINT:PRINT"NOME DO CAMPO" “D>NR THEN D=1 
:N;"?";: LINEINPUT NS (N) :NS(N) =L à THEN D=NR 


EFTS (NS (N),10) OU ota 

1100 PRINTTCOMPRIMENTO DO CAMPO  61/0. CLS3: PRINTE233, ” 
“;N;: INPUT A(N) :A(N)=ABS (INT(A( AZ: 
N))) | 
1110 
1100 
1120 
1130 
1: PRINT” 
TROS=";R Ea 
1140 DIM AS(R,A):FOR I=1 TO 20 
0 :NEXT: RETURN 

2000 G=0 

2010 IF NR=R THEN 2180 
2020 NR=NR+1 

2030 CLS:PRINT €0,"VOCÊE USOU *; 
NR-1;" DOS ";R;” REGISTROS DISP 


ARQUIVO V 


) POR G-1 TO 5:SCREEN 0,1:FO 
IF A(N)>19 OR A(N)<1 THEN 


TS=TS+A (N) E. 
NEXT:R=INT(11000/(5+5*A))J-= 
NUMERO MAXIMO DE REGIS | 


COMO TORNAR UM PROGRAMA 

LONGO MAIS FÁCIL DE DIGITAR 
Digitar um programa longo escrito 
por outra pessoa pode ser uma tarefa 


ONIVEIS” | 
bastante trabalhosa e desanimado- 

= Ra) 
pes Pi Y S Ee Eno do eiá NES... ra, mesmo para os mais persistentes. 
T 6416," PRIN Mas você pode torná-la mais fácil, e 


gratificante, digitando apenas uma cur- 
ta seção de cada vez e testando-a em 
seguida. 

Alguns programas estão estrutura- | 
dos em seções ou módulos mais ou 
menos independentes, tais como sub- 
rotinas, procedimentos e laços, mas se | 


2050 PRINT 6416, "(ATE ";A(N);"C 
ARACTERES) : LINE INPUT asc NR. 
N) 
2060 IF AS (NR$N) =" o AND N=1 TH. 


2U8o NES Bs você não conseguir identificá-los digi- | 
2090 IF G=1 te apenas seções curtas de 20 ou 30 


linhas. 

Quando nada se sabe de programa- 
ção BASIC, a chance de errar uma li- 
nha e não perceber é relativamente 
grande, pois a mudança de apenas um | 
pequeno sinal ou letra já é suficiente 
para impedir que o programa funcione 





E NR=1 THEN pra 
110 IF AS(C,1)>=AS(C-1,1) THEN 












C,NJ=AS(C-1,N) :AS(C-1,N)=X$ 
o 
2130 


IF C=1 THEN 2150 a dd | | 
2140 GOTO 2110 Eis aí um bom incentivo para você se- 
2150 GOTO 2010 guir também o curso de programação 
2160 NE=NR-1 BASIC de INPUT, de modo sistemáti- | 
2170 RETURN co e desde o começo. 


FEV ERES. 
E E ; 








R F=1 TO 300:NEXT:SCREEN 0,0:FO 
R F=1 TO 300:NEXT F,G:RETURN 
7000 AUDIOON:MOTORON:CLS:PRINT 
865," POSICIONE O GRAVADOR E PRE 
SSIONE <ENTER>"; 

7010 INS$=INKEYS:IF INS<>CHR$(13 
) THEN 7010 

7020 MOTOROFF: PRINT €129,"COLOQ 
UE O GRAVADOR EM POSICAO '"REC' 
E PRESSIONE <ENTER>”; 

7030 INS=INKEYS: IF INS<>CHRS$S(13 
) THEN 7030 

7040 PRINT: INPUT” 
VO *“;FIS 

7050 CLS6:PRINT €232,"GRAVANDO 
"EIS: 

7060 MOTORON:FOR 1=1 TO 1000:NE 
XT 

7070 OPEN"O”,4-1,FIS 

7080 PRINT+-1,FIS,R,A,NE 

7090 FOR N=1 TO A:PRINTt-1,NS(N 
7100 C=1 

7110 IF AS(C,1)="" THEN 7140 
7120 FOR N=1 TO A:PRINT4&-1L,AS(C 
+N) : NEXT 

7130 C=C+1:GOTO 7110 

7140 CLOSEf-1:RETURN 

B000 CLS: PRINT670,"VOCE TEM CER 


NOME DO ARQUI 


TEZA (5/N)?” 
BOLO INS=INKEYS:IF IN$S<>"S” AND 
INS<>"N” THEN 8010 


8020 IF INS="N” THEN RETURN 
8030 AUDIOON:MOTORON:CLS:PRINT 
865," POSICIONE O GRAVADOR E PRE 
SSIONE <ENTER>" 

B040 INS=INKEYS:IF INS<>CHAS(IS3 
) THEN 8040 

8050 MOTOROFF: PRINT €129,"COLOQ 
UE O GRAVADOR NA POSICAO "PLA 
Y' E PRESSIONE <ENTER>" 

8060 INS=INKEYS:IF INS<>CHRS(13 
) THEN 8060 

8070 IF R>0 THEN RUN 9210 

8080 INPUT ” NOME DO ARQUIVO” ; F 


CLS/: PRINT 6231,” PROCURAND 


OPEN "I",&-1,FIS 
INPUT 4-1,FIS 

| PRINT 6231,” ACHEI ";FIS; 

INPUT&-1,R,A,NA 

B140 DIM A(A),NS(A)  ,AS(R,A) 

8150 FOR N=1 TO A: INPUT4&-1L,NS(CN 
1 ,A(N) :NEXT 

B160 C=l 

8170 IFEOF(-1)THEN 8200 

B18B0 FOR N=1l TO A:INPUT f-1,AS( 

C.N) 

8190 NEXT: C=C+1:GOTO B170 

B200 CLOSE 4-1:RETURN 

B500 CLS: PRINTEO,"NUMERO DO REG 
ISTRO”";D:FOR N=1 TO A:PRINT 832 
*N+32,NS(N);” :";TAB(13);AS(D,N 
| :NEXT: RETURN 

9000 cLS4 PRINT €70,"VOCÊE TEM 
CERTEZA (8/N)?"; 

9010 INS=INKEYS:IF INS<>"S” 
INS<>"N” THEN 9010 

9020 IF INS="N” THEN RETURN 

9030 CLS: END 

9200 GOSUB 1040:GOTO 9220 


AND 


9210 GOSUB B0B0 

9220 B$=CHAS (128) :RS$="P ARMCAI” 
:GOTO 30 

10000 PRINT 6451,” 
RESSORA cONT *; 
10010 PRINT €480,” 


CHEQUE IMP 


10020 IN$S=INKEYS:IF INS="" THEN 
10020 

10030 IF INS<>"C” THEN RETURN 

10040 FOR Y=0 TO A+4:FOR X=0 TO 
31:P=PEEK (1024+X+Y7*32) : IFP>95 

AND P<127 THEN P=P-64 

10050 IF P>O AND P<27 THEN P=P+ 

96 

10060 IF P=0 THEN P=32 

10070 PRINT 4&-2,CHR$S(P);:NEXT:P 

RINTA-2,CHR$(19);:NEXT 

10080 FOR N=1 TO 3:PRINT4-2,CHA 


S(13) :NEXT 

10090 RETURN 
5 LET R=0: LET U=0: LET V=l 
10 BORDER V: PAPER V: INK 7: 


POKE 23658,8 
INVERSE V;AT 


POKE 23609,20: 

100 CLS PRINT 
v,10; " MENU” 
110 PRINT AT 5,6;"1-Abrir um a 
rquivo” ""TAB 6;"2-Entrar com 
um registro"''TAR 6;"3-Ver reg 
istros"''TAB 6;"4-Ópcao de pro 
cura"' 'TAB 6;"6-Carregar arquil 
vo""''TAB 6;"7-Saida"; tV; TAB 6; 
"-SELECIONE OPCAO-" 


500 LET IS=INKEYS : IF TS="" 
THEN GOTO 500 

510 IF [8<*1" OR 158>"7" THEN 
GoTo 500 

520 IF R=U AND IS<>"1” AND 
15 <>"6" AND 19<>"7" THEN 

GoTo 500 

530 SOUND .1,10: CLS : GOSUB ( 

CODE IS -48)*1000: GOTO 100 


1000 PRINT AT 7,8;"Voce tem cer 

teza?": PAUSE U: IF INKEYS="" T 

HEN GOTO 1000 

1010 IF INKEYS<>"S” 

N 

1020 PRINT INVERSE V;AT 
CRIAR UM NOVO ARQUIVO * 
1030 INPUT AT 0,0;"Numero de ca 

mpos(1l-B)?7 ";A: IF a<l OR a>8B T 

HEN GOTO 1030 

1040 DIM A(A): DIM B(A+V): DIM 

NS(A,10): LET T=U: FOR N=V TO A 

1050 INPUT AT 0,0;"Nome do camp 

O "4 (N);” ? *; LINE NS (N) 

1060 INPUT AT V,0;"Comprimento 
do campo ";(N):" 7 ";A(N): IF A 
(N)>250 THEN GOTO 1060 

1070 LET B(N)=T: LET T=T+A(N): 

NEXT N: LET B(N)J=T 

1080 PRINT AT 16,2;"Espaco para 
"INT (((PEEK 23730+256*PEEK 2 
3731)-29500)/T);" registros” 
1090 INPUT "Quantos registros? 
":R: DIM AS(R,T): RETURN 

2000 LET €C=V 

2010 IF AS(C,V)=" 
2100 

2020 IF 


THEN  RETUR 


10,547 


” THEN GOTO 
C=R THEN GOTO 2500 


2030 LET C=C+V: GOTO 2010 

2100 PRINT AT 0,0;"Voce usou ”"; 
C-V;" dos ":;R;" registros d 
isponiveis” 

2110 FOR N=V TO A: PRINT  INVER 
SE V;AT V+AN*2,U;NS(N); INVERSE 

O:AT V+4N*2,12; FLASH V;"?7": INP 
UT "(ate "; (A(N));" caracteres) 
", LINE AS(C,B(N)+V TO B(N+V)): 


PRINT AT V+2*N, 12:;AS(C, BIN)+V 
TO B(N+V)): NEXT N 
2120 FOR F=V TO 150: NEXT F: IF 
C=UY THEN RETURN 
2130 LET N=C 
2140 IF AS(C)>=AS(C-V) THEN RE 
TURN 
2150 LET XS=AS(C): LET AS(C)=AS 
(C-V): LET AS(C-V)=XS: LET C=C- 


V: IF C=V THEN RETURN 


2160 GOTO 2140 


2500 CLS PRINT FLASH 1L;AT 10 
e ARNO LIVO CHEIO 
": FOR F=V TO 400: NEXT F: RETU 
RN 

3000 LET D=V: IF AS(V,U)=" " TH 
EN RETURN 

3010 IF D=U THEN LET D=V 

3015 IF D-V=R TREN LET D=D-V 
3020 IF AS(D,V)=" " THEN LET D 
=D-U 

3030 GOSUB 9500 

3040 IF OP=V THEN LET D=D+V: G 
OTO 3010 

3050 IF 0P=2 THEN LET D=D-V: 6 
oOTOo 3010 

3060 IF 0P=3 THEN RETURN 

3070 IF 0OP=4 THEN GOSUB 8000 
3080 IF 0P=5 THEN LET MD=V: GO 
SUB 9000: IF D=U THEN RETURN 
3090 GOTO 3030 

4000 RETURN REM LINHA TEMPORA 
RIA 


5000 INPUT "Digite o nome do ar 
quivo ". LINE QS: IF LEN Q5<V 
OR LEN Q$>10 THEN GOTO 5000 
5010 SAVE QS LINE 10: RETURN 
6000 PRINT AT 8,U;"Digite o nom 
e do arquivo a sercarregado, 
ou somente <ENTER> para carrega 
r o primeiro arquivo” 
6010 INPUT LINE XS: 
10 THEN GOTO 6010 
6020 PRINT AT 13,U;" PRESSIONE P 
LAY NO GRAVADOR": LOAD XS 

7000 PRINT AT 10,8;"vVoce tem ce 


IF LEN X9> 


rteza?": IF INKEYS="" THEN GOT 
O 7000 

7010 IF INKEYS<>"5" THEN  RETUR 
N 


7020 RAND USR U 
8000 RETURN REM LINHA TEMPORA 


RIA 
9000 RETURN REM LINHA TEMPORA 
RIA 
9500 PRINT AT U,U;"Registro num 
aro “De” “: FOR N=V TO A: PRI 


NT INVERSE V;AT V+2*N,U;NS[(N); 
INVERSE U;TAB 12:;AS(D,B(N)+4+V T 


O B(N+V)): NEXT N 

9510 PRINT INVERSE V;AT 20,U;” 

P(rossegue) R(etorna) M (enu) 
E (menda) A (paga) I (mprim 

e)” 











9520 IF INKETS="" 


20 

9530 LET V$=INKEYS: IF V$="1º 
HEN COPY LPRINT LPRINT 
PRINT GOTO 9520 

9540 LET OP=U: IF V$="P” THEN 
LET OP=V: LET MO=V 

9550 IF V$="R” THEN LET OP=Z: 
LET MO=-V 

9560 IF VS="M” THEN LET OP=4 
95720 IF VS$S="E” THEN LET 0OP=4 
9580 IF V$="A” THEN LET OP=5 
9590 IF OP=U THEN GOTO 9520 
9600 SOUND .1,10: RETURN 

10 KEYOFF : MOTOROFF 

20 CLS:CLEAR:RS$="P RMCAI” 

30 CLStLOCATE 5,1:PRINT" M EN 


THEN GOTO 95 





U PRINCIPALY 

40 LOCATE 9,5: PRINT"I:-ABRIR UM 
ARQUIVO” 

50 LOCATE 9,7:PRINT"2:-ENTRADA 

DE REGISTROS” 

60 LOCATE 9,9:PRINT"3:-LISTAR R 
EGISTROS” 

70 LOCATE 9,11:PRINT'4:-BUSCA D 
E INFORMAÇÕES” 

B0 LOCATE 9,13: PRINT"5S:-GRAVAR 

UM ARQUIVO” 

90 LOCATE 9,15: PRINT"O:-CARREGA 

R UM ARQUIVO” 

100 LOCATE 9,17:PRINT"/:-FIM DE 
PROGRAMA” 

110 LOCATE 14,19:PRINTTOPÇÃO: ” 


120 INS=INKEYS: IF INS<"1I"ORINS> 
"7"THEN120 

130 IFIN$<>" 1" ANDINS<>"6"ANDINS 
<>" 7" ANDR=OTHEN 120 











140 PRINTCHRS (7) :CLS: IN=VAL (IN 
5) 

150 ON IN GOSUB 1000,2000,6000, 
5000,7000,8000,9000 

160 GOTO 30 

1000 LOCATE 7,0:PRINT"MONTAR UM 
NOVO ARQUIVO" :LOCATE 7,14:PRIN 
T"vVvocê tem certeza (5S/N)?”"; 
1010 INS=INKEYS: IFINS<>"S"ANDIN 
S<>"N"THEN 1010 

1020 IFINS<>"S"THEN RETURN 

1030 IFR>0THEN RUN 9200 

1040 CLS:LOCATE 7,0:PRINT"MONTA 
R UM NOVO ARQUIVO" 


1050 LOCATE 4,2:PRINT"Número de 
campos (1-8) ";: INPUT A:A=ABS ( 
INT(A)) 


1060 IF A>B OR A<S1l THEN1050 
1070 DIM A(A).,NS (A) 

1080 LOCATE 0,6:FOR N=1TOA 

1090 PRINT:PRINT"Nome do campo 
":N;"? ”";:LINEINPUTNS(N):NS(N)= 
LEFTS(NS(N),10) 

1100 PRINT"Tamanho do campo ";N 
: 2: INPUTA(N) :A(N) =ABS (INT(A(N))) 
1110 IFA(N)>250RA (N) <1ITHEN1100 
1120 TS=TS+A(N) 

1130 NEXT:R=INT(3000/(TS+3*A)): 
PRINT: PRINT"Número máximo de re 
gistros =>2":;BR 

1140 DIMAS (R+1,A):FORI=1TO1000: 
NEXT : RETURN 


2000 
2010 


G=0 

IFNR=RTHEN2190 
2020 NR=NR+1 

2030 CLS: PRINTNR-1;" de 
egistros em uso” 

2040 FORN=1TOA:LOCATEO,N*2+2: PR 
INTNS (N);": ":LOCATEO, 22: PRINTC 
HRS (5); : LOCATEO, 23: PRINTCHRS (5) 


"R;" Fr 


2050 LOCATEO,23:PRINT'CALté ";A(N 
);" caracteres”; 

2060 LOCATEO, 21: PRINTCHRS (21);: 
LINEINPUTAS (NR,N) 

2070 IFAS(NR,N)=""ANDN=1THENN=A 
:G=1:G0T02090 

2080 AS (NA,N) =LEFTS (AS (NE,N) ,A( 
N))J:LOCATE12,N*2+2: PRINTAS (NBA,N 


) 

2090 NEXT 

2100 IFG=1THEN2170 

2110 C=NR:FORF=1TOS00:NEXT:IFNR 
=] THEN2160 

2120 IFAS(C,1)>=AS(C-1,1) THEN21 
&0 

2130 FORN=1TOA:SWAPAS(C,N) ,AS(C 
=1,N):NEXT:C=C-i 

2140 IFC=1THEN2160 

GOT0O2120 

GOTO2010 

NR=NR-1 

RETURN 
CLS:LOCATE10,15:PRINTTARQU 
IVO CHEIO!”":FORF=1T0O1000:NEXT 
2200 RETURN 

3000 RETURN:REM LINHA TEMPORÁRI 


A 
4000 RETURN:REM LINHA TEMPORÁRI 
La) 
5000 RETURN:REM LINHA TEMPORARI 


A 
6000 D=1 














6010 IFNR<ITHEN6170 130 porá. RA, NR 
6020 GosUB8500 40 DIMA(A),NS (A) ,AS(R,A 
22 PRINT" [P RR ho FORN=1 TOA: INPUTA ( 











6030 LOCATE3 

ue [R]etorna [Clo N) :NEXT 

rrige [Alpag prime” 8160 C=1 E 
do 5 8170 IFEOF (1) THEN8200 
6040 IN$=INKEYS: IFINS=""THEN604 8180 


FORN=1TOA: INPUT41, AS (CN). 
NEXT:C=C+1:GOTOB170 
CLOSEF1: RETURN 


0 a 8190 
6050 IN=INSTR(1,R$,INS) 28200 





6060 ON IN GOTO 6080, 16080 abbGGE 8500 CLS:PRINT"Número do regist 
6100,6110,6120, (6130 “ro =>":D:FORN=ITOA:LOCATEO,N*2+ 
6070 GOTO6030 É 2:PRINTNS(N);” :";:LOCATEI3:PRI 
6080 D=D+1:CoTO6l4D | NTAS (D,N) :NEXT: RETURN 

) 9000 CLS:LOCATE1O,15:PRINT"Você 


6090 D=D-1:G0T06140 


- 








6100 RETURN tem certeza? (S/N) " 

6110 G0SUB3000:G0T06020 9010 INS=INKEYS:IFINS<>"S"ANDIN 
6120 GOSUB4000: GOTO6010 E — S<>"N"THEN9010 

6130 GOSUB10000:6G0T06020 | 9020 IFN$="N” THENRETURN 

6140 IFD>NATHE 9030 CLS:END 


9200 GOSUB1040:G0T09220 
9210 G05UB8080 
9220 R$="P RMCAI” 
10000 CLS:LOCATE1O,15:PRINT"CHE 
QUE. A IMPRESORA” 

Ea LOCATE12: PRINT"ALIN 
| ud 


6150 IFD<ITHEND=NI 
6160 coTo 6010. 
6170 CLS:LOCATEIO 
IVO VAZIO!” 

6180 FORF=1T0500:NEXT:RETURN 
7000 MOTOR:CLS: LOCATEO,5: PRINT” 
Posicione a fita e tecle [retur 


15:PRINT"ARQU 





n)”  INS=TINKEYS: IFINKES=""THEN 
7010 IN$=INKEYS: IFINS<>CHRS (13) 
THREN7010 E. 10040 LPRINT:LPRINT"Registro nú 







mero “;D 

10050 FORX=1TOA:LPRINT:LPRINT N 

Po SIX)” :";AS(D,X) : NEXT 

3) 10060 LPRINT:LPRINT:LPRINT:LPRI 
NT 

10070 CLS: RETURN 


q 


7020 MOTOR: PRINT: PRINÍ 
loque o gravador em 
vação e pressione [return] 
7030 INS=INKEYS:IFINS<2E 
THEN7030 | 
7040 PRINT: INPUT"Nome do ara 

o ";ELS :FS=*CAS:"+FLS 

pra LOCATEIO, 22: PRINT"Gravando 










































15: HTAB etsda PRINT ” VOCÊ CONF 






IRMA? a 

1005 

1010 INS: IF INS < >"s” 

AND 1 "N” THEN 1010 

1020 < > "8" THEN RET 

URN 

1030 IF R > O THEN CLEAR :D$ 

- CHAS (4):IN = |: HOME : GOTO 
150 

1040 HOME : HTAB 8: INVERSE : 

PRINT ” MONTAR UM NOVO ARQUIVO 

"; NORMAL 

1050 VTAB 3: HTAB 5: PRINT “NU 

MERO DE CAMPOS (1-8): ";: INPUT 
A 

1060 IF A > BORA <I'THENIO 

50 

1070 DIM A(A),NS(A) 

1080 VTAB 7: FORN = 1 TOA 

1090. PRINT "NOME DO CAMPO ";N 

INPUT NS(N):NS(N) = LEFT 


2 (NS (N) 10) 


1100 PRINT "TAMANHO DO CAMPO ” 
N;" "3: INPUT A(N):A(N) = ABS 
C INT (A(N))) 

1110 IF A(N) < 1 OR A(N) > 25 

THEN 1100 

1120 TS = TS + A(N): PRINT 

1130 NEXT :R = INT (( FRE (0) 
- 5000) / (TS + 2% A)j)J: IF R 


> 4000 THEN R = 4000 


1135 R = 3; REM RETIRAR ESTA L 
INHA!LILILLLLLLA SA e 
De e E E E E E E E E 

1140 PRINT : PRINT "NUMERO MAX 


IMO DE REGISTROS: "i;R 


1150 DIM AS(R,A): FOR I = 1 TO 
2060. MOTOR:FORI=1TO1000:NEXT 20 TEXT CLEAR :DS = CHARS (4 2000: NEKT RETURN 
7070 OPEN FLS FOR OUTPUT AS4] ) 2000 G = O 
7080 PRINT 41,FLS;",";R,A,NR 25  ONERR GOTO 11000 2010 IF NR = AR THEN 2180: REM 
7090 FORNSITOA: PRINTHL,NS(N);”. 30 HOME VTAB 1: HTAB 6: INVE CHECK GOTO 
";A(N) :NEXT RSE PRINT" MENU PRI 2020 NR = NR + 1 
7100 C=1 NCI PAL": NORMAL 2030 HOME : PRINT NA - 1;” DE 
7110 TFAS(C,1)="" THEN: 40 VTAB 5: HTAB 10: PRINT "1l:- “:Rj” REGISTROS EM USO” 
7120 FORN=I TOA: PRINT$ ABRIR UM ARQUIVO" 2040 FORN=1 TOA: VTABN* 
NEXT 50 PRINT : HTAB 10: PRINT "2:- 2 + 2: PRINT NS(N);":": VTAB 25 
7130 C=C+1:G0TO7110 | ENTRADA DE REGISTROS" = CALL = 958 
7140 CLOSEf1: RETURN 0 PRINT - HTAB 10: PRINT "3:- 2050 VTAB 24: PRINT "ATE ";A(N 
8000 CLS:LOCATE1O,15:PE "GI );”" CARACTERES";: VTAB 23: HTAB 

tem certeza? (5/N) ” PRINT "d:- 1: INPUT AS(NR,N) 

8010 IN$=INKEYS:IFIN: 2060 IF AS(NR,N) = "" AND N = 
S<>"N”THENS0O1O PRINT "5:- 1 THEN NR = NR - L: RETURN 
BOZ0 IFINS="N” THENRE QUI VC 2070 AS (NR,N) = LEFTS (AS(NR.N 
8030 MOTOR:CLS:LOCA “HTAB 10: PRINT "6:- )J+A(N)): VTAB N * 2 + 2: HTAB 1 
Posicione a fité veda 3: PRINT AS(NR,N) 
n)J” AB 10: PRINT "7: 2080 NEXT 
8040 INS=INKEYS: 2090 IF AS(NR,1) > = AS(NR - 
THEN8040 | q 15: PRINT "O 1,1) THEN 2150 
8050 MOTOR: LOC - 2100 FOR C = NRTOZSTEP -1 
que o gravé EN 4 2110 FORN=1 TOA:XS = AS(C, 
dução e at OR INS > "7" N):AS(C,N) = AS(C -—- I,N)J:ASCC - 
8060 T 1,N) = XKS: NEXT 
THEN8060 AND INS < > "1" 02120 NEXT 
8070 IFR>OTHE 6 AND INS < > É 50 FOR F = 1 TO 1000: NEXT 
8080 PRINT: INE | = OTO 2010 













o ":FLS: FS="CAS: FLS 
8090 LOCATE10,22:PRINT” Procur: 
dO..." - 
B100 OPEN FS FOR INPUT 

B110 INPUT 41,F 
B120 CLS:LOCATE 
ei ":FLS 


50 ON 

5000,7000, 804 
À, que ra f k GOTO 3! ' 
),15:P! Ach 1000 HTAB 87 INV | 
MONTAR UM NOVO “ARQUIVO ”: VTAB 


















“E 


ER SE : PRINT " 








2180 VTAB 3: HTAB 1: CALL - 9 

3: VTAB 15: HTAB 10: FLASH : P 
op UTVOSCHEIO! * 

Im “CHARS (7): FOR F = 


PRINT CHAS ( 


3000 REM LINHA TEMPO 





RARIA 
4000 RETURN 
RARIA 


5000 RETURN : REM LINHA T 
ME o 9d a 


6000 IF NR< | THEN VTAE 
HTAB 12: FLASH : PRINT " À 
O VAZIO! ": FOR F = 1 To dl 
NEXT : RETURN q a tah 
6010 D = 1 
6020 POKE 35,22: VTAB 23: 
RSE HTAB 4: PRINT "P";: 
18: PRINT "R";: HTAB 32: 
"mM 

6030 VTAB 24: HTAB B: PRINT "C 
"=: HTAB 20: PRINT "A";: HTAB 3 
O: PRINT "I”;: NORMAL 

6040 VTAB 23: HTAB 5: PRINT "R 
OSSEGUE”;: HTAB 19: PEINT "ETOR 
NA” ;: HTAB 33: PRINT "ENU” 

6050 VTAB 24: HTAB 9: PRINT “O 
RRIGE”;: HTAB 21: PRINT "PAGA"; 
- HTAB 31: PRINT "MPRIME"; 

6060 GOSUB 6500 
6070 GET INS 

6080 IF INS = cHRS$S 
S = "Pp" THEN D=D+al: 
NR THEN D = 1 


REM LINHA er 






INVE 
HTAB 
PRINT 


(32) OR IN 
IF D> 


6090 IF INS = "Rº THEN D = D - 
1: IF D< 1 THEN D = NR 

6100 IF INS < > "I” AND INS <£ 
> "a" AND INS < > "C” AND IN 

S < > "M” THEN 6060 

6110 POKE 35,24 

6115 IF INS = "M” THEN RETURN 

6120 IF INS = "I” THEN GOSUB 


O programa de arquivamento de 
dados listado neste artigo e no pró- 
ximo pode ser utilizado em muitos tt- 
pos de aplicações, pois o usuário tem 
a oportunidade de definir, ele mes- 
mo, os campos ou diferentes itens de 
informação que constituirão a ficha 
de cadastramento a ser usada. 

Em computação, esse tipo de sis- 
tema flexível, ou programável pelo 
usuário final, é comumente chama- 
do de sistema gerenciador de base de 
dados: além de possuir as funções es- 
senciais de qualquer sistema de cadas- 
tramento, esse sistema também tem 
um módulo de criação do lay out do 
arquivo, conforme o uso queele terd. 

Uma base de dados, na definição 
mais estrita do termo, é um conjun- 
to de arquivos de computador, que 
tem a mesma finalidade do ponto de 
vista do armazenamento e recupera- 
ção de informações. Normalmente, 
portanto, uma dessas bases inclui 
mais de um arquivo: por exemplo, 
em uma base de dados bibliográficos 
(artigos de revistas), teríamos o arqui- 
vo-mestre, ou arquivo-tombo, o ar- 


2 APLICAÇÕES 2 






10000: GOTO 6020 













































6130 IF INS = “A” THEN geesve À PO HTAB 5: INPUT "NO 
dO0O : (0a DP a 4 DO ARQUIVO =>"; ARS 
6140 JIF INS = "C” THEN GOBUB HTAB 5: PRINT "CONFERE ? 
3000: GOTO 6020 às is ";: GET INS 
6150 GOTO 6060 o. 8027 IF INS < > "Ss" THEN GOT 
6500 VUTAB 1: HTAB 1: CALL o 30 
58: PRINT "NUMERO DO REGISTRO 8030 PRINT D$;"OPEN”;ARS 
>";: INVERSE : PRINT D: NOR 8040 PRINT D$;"READ";ARS 
6510 FORI = 1 TOA: VTABI * 8050 INPUT R,A,NR: DIM AS(R,A) 
2 + 2: PRINT NS(I);: HTAB 13: “aNS(A) .N(A) 
RINT AS(D,I): NEXT : RETURN. 8060 FOR I = 1 TO A: INPUT N$S( 
6520 END M T)rA(I): NEXT 
7000 HOME : VTAB 10: HTAB 10: POFBOR J = | TO NR 
PRINT "GRAVAR O ARQUIVO" — BOOJMPFEORA = 1 TO A 
7005 PRINT : PRINT : HTAB 5: 1 “INPUT AS(J,I): NEXT : NEX 
NPUT "NOME DO ARQUIVO =>"; ARS T Encos 
7010 PRINT : HTAB 5: PRINT "co 8073 PRINT DS; "CHORE" ;ARS 
NFERE 7 ";: GET INS 8078. Goto 30 A 
7015 IF INS < > "s” THEN RET o 10000 HOME : VTAB 23: HTAB 9: 
URN DSIPRINT " CHEQUE à IMPRESSORA! "4 
7020 PRINT : PRINT DS;"OPEN";A 10010 HTAB 12: PRINT ” ALINHE 
RS: PRINT DS;"DELETE” ;ARS O PAPEL "; 
7030 PRINT D$;"OPEN";ARS DR 0015 DGET INS 4d 
7040 PRINT D$;"WRITE”;ARS — 10020 VTAB 1: PRINT : PRINT € 
7050 PRINT BR: PRINT A: PRINT N HRS (4);"PR$1” | 
R “10030 PRINT : PRINT "REGISTRO 
7055 FOR I = 1 TO A: PRINT N$( NUMERO ";D Ema 
1): PRINT A(I): NEXT "10040 FOR X = 1 TO A: PRINT: 
7060 FOR J = 1 TO NR PRINT N$ X);" :"; TAB( 15):A5S4D 
7070 FOR I=1TOA NEX7 
7080 PRINT AS(J,1I): NEXT : NEX PRINT : PRINT : PRINT 
T 2 PRINT 
7090 PRINT DS;"CLOSE";ARS 10055 - PRINT CHR$ (4);"PR$0" 
7100 RETURN 0060 HOME : RETURN 
8000 CLEAR :DS = CHR$ (4) 1000. PRINT DS;"CLOSE”: GOTO 2 
8010 VTAB 10: HTAB 10: PRINT * e ? 

e É, 


O QUE É UMA BASE DE DADOS? 


quivo de índice por autores, o arqui- 
vo de índice por assuntos, O arquivo 
de nomes de revistas, e assim por 
diante. Todos eles podem ser inter- 
relacionados por meio de um ou mais 
campos em comum (por exemplo, o 
número de tombo do artigo, e o có- 
digo da revista). 

Entretanto, podemos considerar, 
de forma simplificada, que uma ba- 
se de dados com apenas um arquivo 
também pode cair nessa definição. 

o caso do programa listado em BA- 
SIC neste artigo. 

A única condição essencial para 
que ele continue sendo chamado de 
um sistema gerenciador de base de 
dados é que o usuário possa definir 
livremente os campos de informação 
que quer ter em cada ficha (desde 
que, é claro, sejam respeitados os li- 
mites intrínsecos do programa). 


MODELOS DE BASES DE DADOS 
Existem diversas formas de orga- 


nização da informação em uma base 
de dados. Normalmente, todas as 





formas têm pelo menos ume carac- 
terística em comum: a subdivisão do 
arquivo em registros individuais. 

A forma pela qual esses registros 
(ou os campos do registro) são orga- 
nizados é que difere de caso para 
caso. Na verdade, a organização de 
uma base de dados é ditada pelo 
programa aplicativo que a controla. 

A forma de organização mais co- 
mum para uma base de dados é a 
chamada estrutura relacional, Ela é 
bastante fácil de entender e muito in- 
tuitiva, pois se equivale a uma tabe- 
ta, ou planilha de dupla entrada, com 
linhas e colunas. Essa tabelc é cha- 
mada de relação, daí o nome da es- 
trutura. Como você já deve ter per- 
cebido, o programa listado neste ar- 
tigo é uma base de dados relacional. 

Na estrutura relacional, as linhas 
da tabela correspondem sempre aos 
registros (por exemplo, cada livro de 
uma biblioteca), ao passo que as co- 
lunas correspondem aos diversos 
campos (tais como o nome do autor, 
o título da revista, o ano de publica- 
ção, etc.). 


[E add 


5 








Uma das instruções mais importantes 
em programação BASIC é o GOTO (''vá 
para”, em inglês). Sua função é alterar 
o fluxo de execução de um programa, de 
modo que, ao invés de simplesmente exe- 
cutar as linhas do programa em ordem 
linear, o computador salta para a linha 
indicada na declaração GOTO. 

Embora possa aparecer na tela como 
duas palavras separadas, GOTO nor- 






malmente é digitada como uma só ex- 
pressão. Nos micros da linha Sinclair, 
você pressiona a tecla marcada GOTO 
para entrar a instrução no computador. 
Em outros tipos de micros, você digita 
GOTO sem o espaço entre GO e TO. 

A palavra GOTO deve ser sempre se- 
guida pelo número da linha para onde 
você quer que o programa salte, como 
no exemplo abaixo: 


Universalmente adotados, os sinais de 
trânsito servem para orientar 0 

fluxo do tráfego. No mundo dos micros, 
os comandos GOTO e GOSUB 
cumprem uma função semelhante. 


TITE TE 


30 GOTO 125 


Em alguns computadores, como os 
da linha Sinclair, em vez de um núme- 
ro, podemos ter uma expressão ou equa- 
ção de cálculo (inclusive o nome de uma 
variável), que assume um valor numé- 
rico quando o programa é rodado. 











————— 
| | | 
| | | 
| 
| | 
| | 
| a 


10 LET A=10 
20 GOTO A+5 equivale a GOTO 15 
As declarações GOTO permitem 
também que você salte para trás em um 
programa, criando um laço. Esse tipo 
de laço é semelhante aquele que apren- 
demos a montar com as declarações 
FOR...NEXT, embora não haja, neste 
caso, um limite para o número de vezes 
que o programa o executa. O programa 
abaixo calcula o valor da hipotenusa de 
um triângulo retângulo (note de que ma- 
neira os valores em A e B são elevados 
ao quadrado: multiplicando-os por si 
mesmo, o que é mais rápido do que usar 
a operação de exponenciação). 


TiTEt QE 


10 PRINT "COMPRIMENTO DOS LADOS 
A,B EM CM” 
15 INPUT A,B 








ne GOTO E GOSUB NA PRÁTICA 
E PROGRAMAS PARA CÁLCULO, 


“ADIVINHAÇÃO DE NOMES 
E JOGOS DE DADOS 


mo QUANDO E COMO CRIAR 


20 LET C=SQR(A*A+B*B) 

30 PRINT"O COMPRIMENTO DO LADO 
CEPsCIreM 

40 GOTO 10 


Na linha 20, a função SQR é utilizada 
para extrair a raiz quadrada (SQR é a 
abreviatura de square root, expressão in- 
glesa que quer dizer exatamente “raiz qua- 
drada”) do que está entre parênteses, ou 
seja, a expressão toda significa: “extraia 
a raiz quadrada de A ao quadrado mais 
B ao quadrado, e armazene o resultado 


em C”. (Esta é a fórmula de Pitágoras, 
A! + B? = C?, para calcular o compri- 


mento C da hipotenusa de um triângulo 
retângulo, cujos catetos são A e B.) A li- 
nha 30 imprime o valor resultante em €., 

Em virtude da linha 40, o programa 
se auto-repetirá, pois cada vez que ele a 
alcança a declaração GOTO manda-o de 
volta à linha 10, e o programa é executa- 
do outra vez. 

A única maneira de sair desse ciclo é in- 
terromper externamente o programa, atra- 
vés da tecla <BREAK> ou <CTRL> 
<C>, <CTRL> <STOP>, etc., de- 
pendendo do computador, ou então 
desligá-lo e começar de novo (pois o pro- 
grama na memória se perde). 





"SALTOS PARA A FRENTE 


A declaração GOTO pode ser 
utilizada para saltar para a fren- 
te, por sobre um bloco do pro- 
grama. E o que acontece no pro , 
grama a seguir, que simula 
um jogo de cara ou coroa: 

Ss FOR F=1 TO 500:NEXT 
F:CLS 

10 PRINT "ESTOU JOGANDO 
A MOEDA ...” 

20 FOR J=1 TO 3 

30 FOR F=1 TO 250:NEXT F 
40 PRINT”."; 

50 NEXT J 

60 PRINT 

70 IF RND(0)<.5 THEN GOTO 100 
BO PRINT"E DEU COROA!” 

90 GoTo 5 


100 PRINT"E DEU CARA!” 
110 GOTO 5 


| DESVIOS EM UM PROGRAMA 
y UTILIZAÇÃO EM DESVIOS 
| — COMPLEXOS 

[il * COMO ACELERAR AS SUB- 
ROTINAS 


Digite o programa abaixo usando so- 
mente maiúsculas, se o seu computador 
for compatível com o ZX-81: 


5 PAUSE 50: CLS 

10 PRINT "Estou jogando a moe 
7 AR ud 

20 FOR 3j=1 TO 3 
























O 











30 PAUSE 25 

40 PRINT ".”; 

50 NEXT 3 

60 PRINT 

70 IF RND<.5 THEN GOTO 100 
BO PRINT "E' coroa!!!" 

90 GOTO 5 
100 PRINT 
110 GOTO 5 


lo Lobi] 


"E' cara! l!* 


FOR F=1 TO 500 NEXT 
: CLS 
10 PRINT "ESTOU JOGANDO A 
MOEDA...” 
20 FOR J=1 TO 3 
30 FOR F=1l TO 250 NEXT F 


40 PRINT *.”; 

50 NEXT J 

60 PRINT 

70 IF RND(1)<.5 THEN GOTO 100 


BO PRINT "E DEU COROA !” 
90 GOTO 5 
100 PRINT "E DEU CARA !” 
110 GOTO 5 


A função RND na linha 70 sorteia um 
número aleatório entre O e 1. Aqui, a de- 
claração GOTO faz parte da declaração 
IF. Se o número selecionado pelo com- 
putador for menor do que 5, o com- 
putador saltará para a frente, para a li- 
nha 100. Se ele não satisfizer essa con- 
dição, o computador executará normal- 
mente a linha seguinte do programa — 
a linha 80 —, e quaisquer outros coman- 
dos porventura existentes na linha 70 se- 
rão desprezados. 

Essa condição significa que a linha 70 
constrói uma bifurcação no programa. 
Existem, neste caso, duas alternativas: ou 
o computador executa as linhas 70, 80 
e 90, para exibir na tela a mensagem “E 
DEU CARA?”, ou, então, executa as li- 
nhas 70, 100 e 110, para exibir “E DEU 
COROA?!”. Isso é feito repetidas vezes, 
de forma totalmente aleatória, como 
uma espécie de lançamento rápido de 
uma ''moeda eletrônica” 

As linhas 90 e 100 também contêm de- 
clarações GOTO. Qualquer que seja o 
desvio tomado pelo programa, elas o 
mandarão de volta ao inicio, na linha 5, 
para começar outro sorteio. 

Mais uma vez, você notará que este pro- 
grama não termina nunca. A única manei- 
ra de pará-lo é pressionar a tecla de inter- 
rupção do seu computador, ou desligá-lo. 


DESVIOS MAIS COMPLEXOS 





Nos computadores da linha Sinclair, 
a declaração GOTO não precisa ser se- 
guida de uma constante numérica. Uma 
variável servirá: GOTO A, por exemplo, 
ouGOTO (100 + INT (RND * 6)). Issosig- 











nifica que a declaração GOTO pode pro- 
porcionar um tipo de desvio mais com- 
plexo ao seu programa; veja a seguir. 


Digite o programa abaixo usando so- 
mente maiúsculas, se o seu computador 
for compatível com o ZX-81. 


100 PRINT “Ola, 

ome?” 

110 INPUT as 

120 GOTO (130+INT (AND*4)*10) 

130 PRINT “E' um bonito nome, 

".aS: GOTO 170 

140 PRINT "E' 
"“.aS: GOTO 170 
150 PRINT "Prazer em conhece-l 

O, ";aS: GOTO 1/0 

160 PRINT “Ola, ";aS:;”., 
seu computador.” 

170 STOP 


A declaração GOTO na linha 120 dá 
um salto aleatório para a frente, em di- 
reção a qualquer uma das quatro linhas 
com as alternativas do programa, em 
função do resultado da expressão numé- 
rica. O número 130 na expressão pode 
ser somado a O, 10, 20 ou 30, dependen- 
do do resultado da expressão com RND. 
Assim, o programa poderá saltar para 
as linhas 130, 140, 150 ou 160. 

OGoToO 170, após cada alternativa, 
faz com que o programa saite para a 
frente, ignorando as linhas intermediá- 
rias. Note que não necessitamos de um 
GOTO 170 após a linha 160, pois o pro- 
grama vai para a linha 170 de qualquer 
maneira (é a última alternativa de GO- 
TO na linha 120). 

Assim, este programa roda apenas 
uma vez, pois todos os GOTO instruem 
o computador para saltar para a instru- 
ção STOP na linha 170, sem formar la- 
ços de retorno, 


qual e o seu n 


um nome gozado, 


eu sou 


GOTO 


A INSTRUÇÃO ON.. 





Os computadores da linha TRS, MSX 
e Apple têm um equivalente ao GOTO 
variável existente apenas nos computa- 
dores da linha Sinclair. É a declaração 
ON...GOTO., Esta última é bastante po- 
derosa e util em programação, e tem a 
seguinte forma (um exemplo): 


ON A GOTO 100,200,300,400 


Neste exemplo, quando a variável A 
for igual a 1, o programa saltará para 
o primeiro número de linha na lista que 
se segue à palavra GOTO, ou seja, a li- 
nha de número 100. Se A for igual a 2, 
o programa irá para a linha 200, e as- 
sim por diante. A lista de linhas após 
GOTO pode ter qualquer número de ele- 


| | | | 
| | | 
| 
| | | | 
| | 





mentos, com um mínimo de 2, e um má- 
ximo determinado pelo número máximo 
de caracteres por linha de programa que 
o seu computador aceita (normalmente 
254 ou 255 caracteres). 

Novamente, esta declaração permite 
a programação de desvios complexos. O 
programa anterior passa a ser assim. 


100 PRINT"OLA, QUAL 
E?” 
110 
120 
160 
130 PRINT"E UM BONITO 
S:GOTO 170 

140 PRINTTE UM NOME GOZADO, ";A 
S8:GOTO 170 

150 PRINT" PRAZER 

":.AS:GOTO 170 


E O SEU NOM 


INPUT AS 
ON RND(4) GOTO 130,140,150, 


NOME, “;A 


EM CONHECE-LO, 


160 PRINT "OLA, ";AS;", EU SOU 
O SEU COMPUTADOR.” 

170 END 

Day Lab io] 

100 PRINT "OLA, QUAL E' O SEU 


NOME 7” 
110 INPUT AS 
120 ON INT(RND(1)*4)+1 GOTO 


130, 140, 150, 160 

130 PRINT "E' UM BONITO NOME, " 
;:AS:GOTO 170 

140 PRINT "E' NOME GOZADO, " 
;AS:GOTO 170 

150 PRINT "PRAZER EM CONHECE- 
LO, ” ;AS:GOTO 170 

160 PRINT "OLA, ";AS;", EU SOU 
O SEU COMPUTADOR” 

170 END 





EVITE MÁS TÉCNICAS bjs PROGRAMAÇÃO 


O excessivo emprego de GOTO em um 
programa é considerado um mau estilo de 
programação. Uma razão para isso é que, 
mesmo em programas simples, uma decla- 
ração GOTO que o manda de volta para 
uma linha precedente pode criar um laço 
sem fim. Ora, esse laço só poderá ser 
interrompido por meio do teclado, 
pressionando - se, para isso, as teclas 
<BREAK>, <STOP>, <CTRL> 
<C>, etc. — ou desligando-se o com- 
putador. Isso é inconveniente, prin 
cipalmente para o usuário do programa. 

Mas a principal razão é que, permitin- 
do que você salte, para trás ou para a fren- 
te, para qualquer ponto do programa, ao 
inteiro sabor de sua vontade, o uso do 
GOTO tende a quebrar a estrutura lógi- 
ca do programa. Isso pode não parecer 
muito importante, se você estiver lidan- 
do com programas de 5 ou lOlinhas, mas 
pode ser vital, se você estiver escrevendo 
programas de 100 ou 1000 linhas. 





l 
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Um bom estilo de programação re- 
quer que os programas sejam desenvol- 
vidos em módulos lógicos, cada um de- 
sempenhando uma tarefa bem separada. 
Isso ajuda muito quando você tem que 
localizar erros de programação que ocor- 
rem aleatoriamente, no momento em 
que o programa é rodado. Esse estilo de 
programação (conhecido como estrutu- 
rado) o ajudará também a fazer progra- 
mas mais simples, que poderão ser facil- 
mente modificados no futuro. 





“COMO UTILIZAR O GOSUB 


Existe outra ferramenta de programa- 
ção que pode ser utilizada para substi- 
tuir em grande parte o GOTO, quando 
este é problemático: é o GOSUB. Essa 
instrução é digitada com uma palavra e 
deve ser seguida por um número de li- 
nha (ou ainda por uma expressão numé- 
rica, em micros da linha Sinclair). 

O GOSUB envia o computador para 
uma sub-rotina, que se inicia na linha es- 
pecificada por ele. Uma sub-rotina é um 
conjunto de operações dentro de um pro- 
grama que podem ser colocadas à parte, 
em uma espécie de “tijolo” lógico. Ela é 
frequentemente utilizada quando uma 
operação deve ser repetida várias vezes ao 
longo de um programa. Assim, ao invés 


de escrever esta rotina toda vez que ela 
ocorre no programa, podemos colocá-la 
em um ponto qualquer, e simplesmente 
direcionar o computador para ela, quando 
necessário, e quantas vezes desejarmos. 

A diferença decisiva entre um GOTO 
e um GOSUB é que no final de uma sub- 
rotina deve constar a palavra RETURN 
(“retornar””, em inglês). Para entrar es- 
ta palavra, nos computadores da linha 
Sinclair deve-se simplesmente pressionar 
a tecla marcada com RETURN. Nos ou- 
tros micros, digita-se a palavra por ex- 
tenso, pressionando-se < ENTER > ou 
< RETURN > depois (não confunda a 
tecla de retorno de carro, ou transmis- 
são, que é sempre indicada no texto de 
forma diferente, com a instrução RE- 
TURN). 

A declaração RETURN envia o flu- 
xo do programa de volta à linha ou ao 
comando que se segue ao GUSUB que 
solicitou (“chamou”, na gíria dos pro- 
gramadores) a sub-rotina. Assim, o com- 
putador sempre “se lembra”” de que pon- 
to do programa foi efetuado o desvio pa- 
ra a sub-rotina e sempre volta a ele, pa- 
ra continuar o fluxo normal do progra- 
ma, depois que a sub-rotina é completa- 
da. Desse modo, podemos colocar cha- 
madas à mesma sub-rotina em qualquer 
ponto do programa. 

No programa seguinte exemplifica- 
mos o uso do GOSUB., Ele simula um jo- 


go de dados muito simples, uma espécie 
de '“crepe”". No jogo, um par de dados 
é arremessado, e o total dos pontos ob- 
tidos é anotado. Se os totais de dois ar- 
remessos sucessivos forem iguais, O jJo- 
go terminará. Caso contrário, os dados 
serão arremessados novamente. 


20 LET Asl 

30 REM. . PRIMEIRO 
40 GOSUB 150 

0 LET TisT 

60 REM. . SEGUNDO LANCAMENTO... 

70 GOSUB 150 

BO LET TZ2=T 

90 IF Tl=T2 THEN GOTO 120 

100 LET A=A+1 

110 GoTo 40 

120 PRINTºCONTAGENS IGUAIS A *; 


LANCAMENTO... 


Tl;” APOS ";A;"” LANCAMENTOS” 
130 END 
140 REM. . SUBROTINA 


150 
160 
170 
180 


Digite o programa abaixo usando so- 


mente maiúsculas, se O seu computador 
for compatível com o ZX-81. 


LET DI=AND(6) 
LET D2=RND(6) 
LET T=D1I+D2 
RETURN 


20 LET as) 











| 
| 
| 


30 REM primeira jogada 

40 GOSUB 150 

S0 LET tli=T 

60 REM segunda jogada 

70 GOSUB 150 

BO LET t2=T 

90 IF tl=t2 THEN GOTO 120 
LET asatl 

GOTO 40 

PRINT "Os dados deram ";tl 
:* na jogada”;a 

GOTO 200 

REM sobroutine 

| LET dl=INT (RND*6)+1 
LET d2=INT (RND*6)+1 
LET T=-dl+d2 

RETURN 


PL Li 


CLS: LET DI=RND(-TIME) 
26 LET A=1 
40 GOSUB 150 
50 LET T1l=T 
70 GOSUB 150 
80 LET TZ2=T 
90 IF Ti=T2 
100 LET A=A+1 
110 GoTo 40 
120 PRINT "CONTAGENS IGUAIS A " 
Tl;” APOS ";A;” LANCAMENTOS” 
130 END 
140 REM ... SUBROTINA 
150 LET DI=INT(RND(1)*6)+1 
160 LET D2=INT(RND(1)*6)+1 
170 LET T=D1+D2 
175 PRINT D1I;D2;T 
180 RETURN 


THEN GOTO 120 


O arremesso do dado deve ser reali- 
zado duas vezes; por isso, é entregue a 
uma sub-rotina, que vai das linhas 150 
a 180. O GOSUB nas linhas 40 e 70 en- 
via o computador ao ponto de início da 
sub-rotina (linha 150). O RETURN na 
linha 180 manda o micro voltar à linha 
50, caso o chamado à sub-rotina tenha 
partido do GOSUB da linha 40, ou à li- 
nha 80, se tiver partido da linha 70. A 
linha 140 é usada para identificar o ini- 
cio da sub-rotina, usando a declaração 
REM, que significa apenas um comen- 
tário feito pelo programador. 

Note a declaração END na linha 130 
de todos os programas (exceto os do Sin- 
clair, que usam um GOTO). Se ela não 
estivesse aí, O computador passaria a exe- 
cutar a sub-rotina diretamente e, ao atin- 
gir a declaração RETURN, assinalaria 
um erro, pois não haveria indicação pré- 
via sobre para que linha retornar. 


NÚMEROS DE LINHA INEXISTENTES 





Como os micros da linha Sinclair não 
têm declaração END, utilizamos um 
GOTO seguido de um número de linha 


que não existe no programa, ou seja, 
200, 
130 GOTO 200 


Em outros micros, isto daria uma 
mensagem de erro. O mesmo, entretan- 
to, não acontece com a linha Sinclair: ao 
perceber que a linha 200 não existe, o 
computador interromperá providencial- 
mente o programa, pronto para come- 
car de novo. 

Para tais micros, é melhor usar esses 
expedientes do que colocar 


130 STOP 


que é aceito pelo computador, mas que 
gera uma mensagem de advertência na 
tela*Isso poderia levar o usuário a acre- 
ditar que houve um erro de execução do 
programa, especialmente porque a linha 
130 não é a última [inha física do pro- 
grama, pois está no meio dele, antes da 
sub-rotina. 

Mas seja o mais cuidadoso possivel 
quando utilizar, nesses computadores, O 
comando GOTO seguido por um núme- 
ro de linha inexistente. 

Após GOTO 200, por exemplo, os mi- 
cros da linha Sinclair pesquisarão todas 
as linhas seguintes. E se encontrarem 
uma instrução em alguma delas, eles a 
executarão (ou tentarão executá-la), in- 
dependentemente do conteúdo dessa ins- 
trução. Portanto, para ficar mais segu- 
ro, o melhor é enviar o computador pa- 
ra a última linha física possivel, que po- 
de ser a de número 9999, nos micros da 
linha Sinclair. 

E, para que não haja nenhuma con- 
fusão quanto ao que você está fazendo, 
coloque: 


9999 REM END 


CHAMADAS MULTIPLAS 


É possível uma sub-rotina chamar ou- 
tras, e estas, por sua vez, outras tantas, 
gerando assim uma estrutura em diver- 
sos níveis. Assim como no jogo citado o 
dado deve ser lançado duas vezes, a sub- 
rotina de arremesso pode ser constitui- 
da como uma sub-rotina dentro de ou- 
tra, desde que se mude as últimas linhas 
do programa, da seguinte forma: 


GOSUB 190 
LET Dl=D 
GOSUB 190 
LET D2=D 
LET T=D1I+DZ 
RETURN 

LET D=RND(6) 
RETURN 








Digite o programa abaixo usando so- 
mente maiúsculas, se o seu computador 
for compatível com o ZX-8l: 

150 GOSUB 190 
155 LET dl=q 
160 GOSUB 190 
165 LET d2=d 
10 LET tT=di+g? 
180 RETURN 
190 LET d=INT 
195 RETURN 


150 GOSUB 190 

155 LET D1I=D 

160 GOSUB 190 

165 LET D2=D 

170 LET T=D1+D2 

180 RETURN 

190 LET D=INT(RND(1)*6)+1 
195 RETURN 


(RND*6)+1 


Aqui, as linhas 150 e 160 enviam o 
computador para a sub-rotina na linha 
190, que faz o dado rolar (isto é, sorteia 
um número aleatório inteiro, entre 1 e 6), 
enquanto as linhas 155 e 165 armazenam 
os resultados de cada lançamento sepa- 
rado. 

Por uma questão de concisão, o com- 
putador realiza apenas o lançamento de 
um dado, e não de dois, separadamen- 
te. Veja a seguir: 


150 LET T=RND (6) +RND(6) 


150 LET T=INT(6*RND+1) + 
INT (6*RND+1) 


alli! 


150 LET T=INT(6*AND(1)+1)+ 
INT (6*RND(1)+1 


UTILIZE O COMANDO ON...GOSUB 





Assim como GOTO, a declaração 
GOSUB pode ser utilizada para chama- 
das complexas a um determinado núme- 
ro de sub-rotinas, começando em linhas 
diferentes. Nos microcomputadores da 
linha Sinclair (compatíveis com Spec- 
trum e ZX-81), o GOSUB pode ser se- 
guido de uma expressão numérica, ou 
nome de variável, exatamente como vi- 
mos anteriormente para o GOTO. 

No caso dos computadores de outras 
linhas, como TRS-80, Apple e MSX, 
existe a declaração ON...GOSUB, que 
pode ser utilizada para o mesmo efeito, 








LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





PROGRAMAÇÃO BASIC 
O que são variáveis em promoção BASIC? Cordões (strings) 
e cordões vazios, como utilizá-los em jogos eletrizantes. 


CÓDIGO DE MÁQUINA 
Aprenda a entrar um programa em linguagem de máquina no 
computador, usando um programa em BASIC e o comando POKE. 


PROGRAMAÇÃO BASIC 
Saia do mundo preto e branco e entre nos arco-íris, 
acrescentando cores aos desenhos nos micros TRS-Color. 


APLICAÇÕES 
Como encontrar nomes e endereços de pessoas 
a partir de poucas informações. 





